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ete anno me 
PRODUCT CODE: AC-E434C-MC 
DIAGNOSTIC CODE: MAINDEC-11=CRLPF-C 
PRODUCT NAME : CRLPFCO LPA/DR11-K TEST 
DATE: DEC 1980 
MAINTAINER: DIAGNOSTIC GROUP 


COPYRIGHT (C) 1977, 1978, 1979, 1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE 

INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY 
OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE 
AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND 
TO ONE WHO AGREES TO THESE LICENS. TERMS. TITLE TO AND OWNERSHIP 
OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE IN EQUIPMENT IN EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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THIS PROGRAM IS A LOGIC TEST OF THE DR11-K DIGITAL INPUT 
OUTPUT CONTROL OPTION. MOST OPTION FUNCTIONS CAN BE TESTED. 


DUE TO THE FLEXIBILITY OF THE OPTION, THE OPERATOR 

WILL BE REQUIRED TO SUPPLY OPTION CHARACTERSTICS. 

THE PROGRAM WILL HANDLE ALL CONFIGURATIONS OF INPUT yw 
SWITCHES AND INPUT DATA LATCHING JUMPERS. FOR SYSTEMS WITH 

Sg St | MULTIPLE DR11-K'S, He CONGIGURATIONS MUST 

BE THE SAME. THE FOLLOWING JUMPERS MUST 

BE INSERTED TO EXECUTE THE LOGIC TEST: W21A, W22A AND W23A. 


THIS PROGRAM WILL TEST SEQUENTIAL DR11-K'S STARTING is THE 
BUS ADDRESS AND VECTOR IN LOCATIONS ‘‘$BASE'’ AND ‘"SVECT 

FOR NORMAL FACTORY CONFIG., ALL QUESTIONS SHOULD BE ANSWERED 
WITH A VALUE OF 0. 


THIS PROGRAM IS A MODIFIED VERSION OF ‘'MD-11-DZDRG-E" 

IT WAS MODIFIED TO ENABLE THE OPERATOR TO CHECK OUT 

THE DR11-K OPTION WHEN IT IS ON THE LPA11-KX 1/0 

BUS. NO RECABLING IS NEEDED. SOME TEST DONE IN 

THE ORIGINAL DIAGNOSTIC SUCH AS ARBITRATION TEST, 

WERE DELETED AS THEY COULD NOT BE CHECKED. IF THIS 
DIAGNOSTIC DOESN'T FIND A SUSPECTED PROBLEM, YOU 

MAY HAVE TO RUN ‘MD=-DZDRG-E'" YOU SHOULD RUN ‘MD-11-CRLPA™ 
BEFORE RUNNING THIS DIAGNOSTIC. PLEASE READ SECTION 10. 


AFTER INITIAL LOADING OF THE PROGRAM, THE LOGIC TEST MUST BE RUN. 


EQUIPMENT REQUIREMENTS 


PDP-11 FAMILY COMPUTER WITH CONSOLE 1/0 TERMINAL AND 16K OF MEMORY 


DR11-K OPTION INSTALLED IN THE LPA-11 
BCO8R-1 ONE FOOT OUTPUT TO INPUT WRAPAROUND CABLE 
LPA11-KX OPTION 


LOADING PROCEDURE 


THE PROCEDURE FOR LOADING A BINARY FILE SHOULD BE FOLLOWED. 


rt 


SEQ 0003 


CONTROL: 


STARTING PROCEDURE 


CONTROL SWITCH SETTINGS (LOGIC TEST) 


If THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITC 

REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED. 


THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING Of THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 


1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 


LOC. 


176 AT SELECTED POINTS WITHIN THE PROGRAM. 


2) THE MACHINE WILL THEN TYPE: SWR=XXXXXX NEW= (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE ‘"NEW="* HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 


B) 


4.2 


(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2. 


WILL BE USED AS THE SOFTWARE DISPLAY REGISTER. 


SW 15 = 1 100000 HALT ON ERROR 

SW 14 = 1 040000 LOOP ON CURRENT SUB-TEST 

SW 13 = 1 020000 INHIBIT ERROR TYPOUTS 

SW i2= 1 010000 LOOP ON CURRENTLY SELECTED DR11-K 
SW 10 = 1 002000 NO OUTPUT TO INPUT WRAPAROUND CABLE 
SW 09 = 1 001000 LOOP ON ERROR 

SW 08 = 1 000400 LOOP ON TEST IN SWR <7:0> 


STARTING ADDRESSES 


200 IS THE STARTING ADDRESS OF THE LOGIC TEST. 

204 IS THE RESTART ADDRESS OF THE LOGIC TEST 

210 1S THE STARTING ADDRESS OF THE CONTROL LINE LOOP. 
214 IS THE STARTING ADDRESS OF THE USER LINK LOOP. 


SEQ 0004 


OPERATING PROCEDURE 


THE FOLLOWING JUMPERS MUST BE INSTALLED TO EXECUTE THE 
LOGIC TEST: | W21A, W22A AND W23A_ 
If THE CUSTOMER HAS SELECTED THE *'B'' SECTION OF THESE Raat iy 
IT MUST BE RETURNED TO THE "'FACTORY'’ POSITION BEFORE R 


NNING 
THE LOGIC TEST. ** WORST CASE WILL ONLY BE CHANGING THREE SUMPERS. 


THE OPERATOR MUST INSERT THE yh yt yey IN THE SWITCH 


ERS 
IN THE FACTORY POSITION, ‘+. SWITCH REGISTER smaNNeR BE RESET. 


ONCE STARTED THE TEST WILL RUN IN IT'S NORMAL M 

WITHOUT OPERATOR INTERVENTION OR SWITCH SELECT 

eee NOTE: OPERATOR MUST ac eo WHEN REQUESTED BY 
PROGRAM. THE MACHINE WILL TYPE: NEW = AFTER NEW 

THE INFORMATION IS INSERTED. REFER TO SECTION 4.1 2) wee 


ERRORS 


THIS PROGRAM USES THE DIAGNOSTIC ‘SYSMAC’ PACKAGE FOR 
ERROR REPORTING AND TYPEOUT. REFER TO THE ‘ERROR POINTER TABLE" 
FOR sii sorag OF ERRORS. 


(LOC. 1102) CURRENT TEST NUMBER 
BYTE SITEMB: (LOC. 1114) ITEM #N sr TABLE INDEX 
WORD SERRPC: (LOC. 1116) ERRORING P.C. 
WORD $PASS: (LOC. 1176) CURRENT PASS COUNT 


1. IF SEQUENTIAL DR11-K"S, ALL DR11-K'S MUST BE IN THE 
SAME INTERRUPT SWITCHES AND DATA PATH JUMPER CONF IGERATION. 
2. THE Si en ee BE IN THE ‘FACTORY'’ POSITION: 
3. THE OPERATOR MUST SUPPLY THE CORRECT INTERRUPT SWITCHES 
AND DATA PATH JUMPER AND SWITCH CONFIGURATION 


INFORMATION TO THE INITALIZATION QUESTIGNS OR AN ERROR WILL OCCUR. 


4. FOR MULTIPLE GROUPS OF CONSECUTIVE DR11-K'S: 


D OUP. 
5. AFTER INITIAL LOADING OF THE PROGRAM, THE LOGIC MUST BE RUN FIRST 


*t 


SEQ 0005 


8. MISCELANEOUS 


8.1 EXECUTION TIME 
THE LOGIC TEST WILL TAKE APPROXIMATELY 60 yw * FOR COMPLETION 
ON A PDP11/05 TYPE AND WILL TYPE ‘END PASS N 
THE CONTROL LINE LOOP WILL NEVER EXIT. 
8.2 DEVICE ADDRESS PROGRAM LOCATIONS 
““SBASE'’ (LOC. 1244) CONTAINS THE DR11-K BASE DEVICE ADDRESS <767770> 
"$VECTI'' (LOC. 1240) THE LOW 9 BITS CONTAIN THE DR11-K BASE INTERRUPT VECTOR <300> 
“SVECTI" (LOC. 1240) THE HIGH 3 BITS CONTAIN THE DR11-K BR LEVEL #4 <200> 
*NOTE: IF THESE LOCATIONS ARE CHANGED, THE OPERATOR MUST START 
THE TEST AGAIN AT LOC. 200. THE PROGRAM WILL USE THE BASE 
ADDRESS AND VECTOR AND UPDATE THE ACTUAL PROGRAM VALUES. 
8.3 USER LINK TO I/O DEVICE 
A SPECIAL USER LINK HAS BEEN PROVIDED IN ORDER FOR THE 
OPERATOR TO EXAMINE OR MODIFY LOCATIONS ON THE LPA‘1~-KX 
1/0 BUS. (NOTE: THIS CANNOT BE DONE DIRECTLY.) 
PROCEDURE : 
1) START THE PROCESSOR AT LOCATION 214 


2) THE DIALOG TO EXAMINE A LOCATION IS AS FOLLOWS: 


E OR D 
DEVICE ADDRS= “OCTAL ADDRS"' 
XXXXXX 


WHERE XXXXXX IS THE CONTENTS OF THE SPECIFIED LOC. 
3) THE DIALOG TO MODIFY A LOCATION IS AS FOLLOWS: 


E OR D -_ 
DATA= "DATA TO BE DEPOSITED" 


4) THE PROGRAM WILL STAY IN THIS LOOP UNTIL THE OPERATOR 
IS FINISHED. AT THIS TIME THE PROCESSOR SHOULD BE 
HALTED. 
NOTE: THE OPERATORS RESPONSE IS ENCLOSED IN QUOTES. 
8.4 XXDP/ACT/APT 


THE PROGRAM IS CHAINABLE UNDER XXDP. THE APT HOOKS ARE ALSO 
INSTALLED BY NOT TESTED. 


SEQ 0006 





9.1 


9.2 


9.3 


10. 


PROGRAM DESCRIPTION 


LOGIC TEST <SA 200 AND 204> 


THE LOGIC TEST IS A TEST OF THE CONTROL AND _INPUT/OUTPUT 
REGISTERS. ALL JUMPERS AND SWITCHES COMBINATIONS EXCEPT: 


W21A, W22A AND W23A CAN BE DIAGNOSED. 


THE PROGRAM CHECKS THAT THE DR11-K 
"RESET'’ WILL WORK CORRECTLY. 


CONTROL LINE LOOP <SA 210> 


THIS TEST LOOP PROVIDES THE OPERATOR WITH A 
SCOPE LOOP FOR CHECKING W21, W22 AND W23 IN THE ‘'B’’ POSITION. 


USER LINK LOOP <SA 214> 


THIS LOOP ENABLES THE OPERATOR TO EXAMINE OR MODIFY LOCATIONS 
ON THE LPA-11K I/O BUS (REFER TO 8.3). 


LPA11 (SYSTEM) DIAGNOSTIC SUMMARY 


DIAGNOSTICS FOR THE LPA11 ARE WRITTEN AT THREE LEVELS: (1) 
TOTAL PDP-11 SYSTEM, (2) LPA11 SYSTEM; AND, (3) LPA11 OPTIONS. 


LEVEL 1, IS DESIGNED TO ISOLATE A FAILURE TO THE LPA11 SYSTEM. 
ALL OPTIONS ON THE PDP-11 ARE EXERCISED. 


LEVEL 2 DIAGNOSTICS ISOLATE A FAILURE TO THE INDIVIDUAL OPTION 
WITHIN THE LPA11. THE LEVEL 2 D3AGNOSTIC IS MD-11-CRLPA. WHEN 
THE USER_RUNS ‘'CRLPA'' HE CAN GENERALLY TELL WHICH OPTION DIAGNOSTIC 
(LEVEL 3) TO RUN NEXT. M8254 AND BMC-11 ERRORS MAY “'LOOK'’ ALIKE 
AND ‘'CRLPA'’ MAY NOT BE ABLE TO DISTINGUISH BETWEEN THEM. 
ARBITRATION ERRORS WILL NOT BE DETECTED BY THIS DIAGNOSTIC. 


LEVEL THREE DIAGNOSTICS AID IN DETERMINING IF THE ERROR WAS IN 
FACT ON THE OPTION THE 'CRLPA’’ SPECIFIED. THE USER MAY ‘'LOOP'' ON 
THE ERROR. WITHIN LEVEL THREE, THERE ARE TWO GROUPS OF 
DIAGNOSTICS. THE FIRST GROUP REQUIRES NO EXTRA’ WORK BY THE 
USER IN ORDER TO RUN. GROUP ‘A’ DIAGNOSTICS DO NOT CHECK 
ARBITRATION, AND REQUIRE EXTRA TIME FOR EXECUTION. THE SECOND 
GROUP (GROUP "B'') REQUIRES THAT THE USER RECONFIGURE THE PDP-11 
SYSTEM. — THIS RECONFIGURATION INVOLVES CABLING THE UNIBUS TO THE 
LPA'S I/O BUS. * 


THE DIAGNOSTIC FOR THE, MB254 FALLS INTO THE GROUP ''B’’ CATAGORY. 


SEQ 0007 


THE LPA11=KX DIAGNOSTIC KIT WILL INCLUDE: 


OPTION 


LPA11-Kx 
MB254 
AA11-K 


AR11 


DR11-K 


KW11-K 


LPS11 


AD11-K 


M8200-YC 
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MD-11-CRLPA 
MD-11-CRLPN 
MD-11-CRLPB 
MD-11=DZAAC 
MD-11=-CRLPC 
MD-11-CRLPD 
MD-11-CRLPE 
MD-11-DZARA 
MD-11=DZARB 
MD-11=DZARC 
MD-11-CRLPF 
MD-11-DZDRG 
MD-11-CRLPG 
MD=i 1-DZ2KwWK 
MD-11-CRLPH 
MD-11-CRLPI 
MD-11-CRLPJ 
MD-11-DZLPC 
MD-11-DZLPD 
MD-11-DZLPI 
MD-11-CRLPK 
MD-11-DZADL 


MD-11-CRLPL 


MD-11-CRLPM | 


SEQ 0008 
DIAG. TITLE 


LPA11-K SYSTEM EXER. 

M8254 (IPBM) FIELD DIAG. 

LPA/AA11-K DIAG. 

AAi1-K DIAG. 

LPA/AR11 DIAG. #1 

LPA/AR11 DIAG. #2 

LPA/AR11 DIAG. #3 

AR11 DIAG. #1 

AR11 DIAG. #2 

AR11 DIAG. #3 

LPA/LP11-K DIAG. 

DR11-K DIAG. 

LPA/KW11-K DIAG. 

KW11-K DIAG. 

LPA/LPS11 DIAG. #1 

LPA/LPS11 DIAG. #2 

LPA/LPS11 DIAG. #3 

LPS11 DIAG. #1 

LPS11 DIAG. #2 

LPS11 DIAG. #3 

LPA/AD11-K DIAG. 

AD11-K DIAG. 

LPA/DMC-11 DIAG. TST I 
““LPA/DMC=11 DIAG. TST II 


THiS IS A HISTORY FILE OF CRLPF-C 


PRODUCT CODE: MAINDEC-11-DZDRG-B tan 

PRODUCT NAME : DRI1-K DIGITAL 1/0 TEST ae 

DATE: APRIL 1976 

MAINTAINER: DIANOSTIC GROUP 
eeerenceccecccnereeereereeneeerensencercenneneerere 

PRODUCT CODE: MAINDEC=11=DRLPF=A | 
PRODUCT NAME: LPA/DR11-K DIGITAL 1/0 TEST “Sree 
DATE: JANUARY 1978 ee 
MAINTAINER: DIAGNOSTIC GROUP 


REASON FOR DEVELOPMENT: 


1) TO ENABLE THE OPERATOR TO CHECK OUT THE DR11-K OPTION 
WHEN IT IS ON THE LPA11-KX 1/0 BUS. 


CHANGES MADE: 


1) TOOK OUT CERTAIN TESTS FROM ORIGINAL DIAGNOSTIC (I.E. 
INTERRUPTS, TIME DEPENDENT CODE). 


2) REPLACED DIRECT LINKS TO DEVICE WITH MACRO CALLS TO THE 
KMC-11 MICRO CODE. KMC-11 MICRO CODE (FILE:DRLPX2) HANDLES 
DIRECT COMMUNICATIONS WITH THE DEVICE. 


FILE: DRLPA.MAC 
CONTAINS MACRO LINKS BETWEEN PDP-11 CODE AND KMC-11 
MICRO CODE. FILE: DRLPX2 NEEDS TO BE ASSEMBLED WITH 
DRLPF (SEE .CTL FILE). 


FILE: DRLPX2 
MICRO CODE FILE THAT GETS LOADED INTO THE KMC~-11 
VIA ROUTINES IN DRLPA.MAC. 


DRLPX2.P11 IS ASSEMBLED WITH MACY11 (ONLY) AS ANY OTHER 
-P11 FILE. THE RESULTS OF ITS ASSEMBLY IS A .OBJ 

MODULE AS WAS THE RESULT OF THE ASSEMBLY OF THE 
DIAGNOSTIC .P11 FILE. BOTH .OBJ FILES GET LINKED 

WITH LNKX11 (ONLY). 


FILE: DRLPF.CTL 
THIS FILE EXPLAINS SEQUENCE OF ASSEMBLES AND LINKS. 
IT IS IN TOPS-20 FORMAT. 


tet 


SEQ 0009 
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PRODUCT CODE:  AC-E434B-MC 


DIAGNOSTIC CODE: MD-11-CRLPF-B 

PRODUCT NAME:  CRLPFB LPA/DR11-K DIGITAL I/O TEST 
DATE: JAN. 1978 

DATE REVISED: JULY 1979 

MAINTAINER: DIAGNOSTIC GROUP 
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3. 


PROBLEMS 


IF THE ‘WRAP-AROUND’ CABLE IS CONNNECTED, THE PROGRAM GETS 
A ‘BUS TRAP" IN “'TST34°'. THE PROGRAM TRYS TO ADDRESS THE 
DR-11K ON THE 11 BUS AND NOT THE LPA BUS 

USER LINK SECTION HAS A NON STANDARD STARTING ADDRESS 


SECTIONS OF THE ORIGNAL PROGRAM STILL REMAIN EVEN WHEN THE 
LPA-11 CANNOT SUPPORT THESE MODES 


SOLUTIONS 
A 8. LOCATION PATCH SOLVES THE PROBLEM 


ASSIGN 214 AS THE STARTING ADDRESS FOR THE ‘USER LINK"’ LOOP. 


EDIT OUT THOSE SECTIONS THAT CAN NEVER BE USED. 


AN ANAAAANANANANAAAAAAA AN ANN ANAN AN AN AN AA AN AAAAAAAANANVAAAAANANAAAN 





VERSION ‘'C'’ WAS GENERATED DUE TO CHANGE IN THE DMC-11 ROM. 


THE PROGRAM IS NOW TOLERANT OF BOTH DMC-11 MICRO-CODE VERSIONS. 


SEQ 0010 


LNKK11 VO23 24-OCT-80 9:36 


#CRLPFC.BIN/B:42000,CRLPFC .MAP=CRLPFC,CRLPX2/E 


LOAD MAP 
IDENT: 4.01 


/TRANSFER ADDRESS: 000001 

|LOW LIMIT: 042000 

|HIGH LIMIT: 046000 

; feeeenrere 

/MODULE LPA 

SECTION ENTRY ADDRESS SIZE 

<. ABS.> 000000 000000 
DRLPX2 


0 
< > 042000 000000 


eeeeeeeree 


MODULE DRLPK2 

SECTION ENTRY ADDRESS SIZE 

< > 042000 000000 
a 042000 004000 
} 


RUN-TIME: 0 SECONDS 
2k CORE USED 


| 
| 
| 
| 
| 
| 
| 
| 


| 


SEQ 0011 


LPA DRI1-K LOGIC TEST MD=-11-CRLPF-C MACY11 306(1063) 24-01-80" 09: 34 


CRLPFC.P11 


23-0CT-80 09:03 TABLE OF CONTENTS 


BASIC DEFINITIONS 
OPERATIONAL SWITCH SETTINGS 


TRAP CATCHER 
STARTING sentra 
ACT11 HOOKS 
APT a tae BLOCK 
COMMON TAGS 
APT RALLBOX-ETABLE 
ERROR POINTER TABLE 
INITIALIZE THE ae TAGS 
TYPE PROGRAM NAME 
GET VALUE FOR. SOFTWARE SWITCH REGISTER 
T1 TEST FOR NO BUS ERRORS 
12 TEST THAT OUTPUT REG. CAN HOLD #-1 
T3 TEST THAT RESET CLEARS OUTPUT RE 
14 TEST THAT OUTPUT REG. CAN HOLD #52525 
T5 TEST THAT OUTPUT REG. CAN HOLD #125252 
T6 TEST THAT OUTPUT REG. CAN HOLD A COUNT PATTERN 
17 FLOAT A 1 ACROSS THE OUTPUT REGISTER 


T10 FLOAT A 0 ACROSS THE OUTPUT REGISTER 
111 TEST FOR SLOW OUTPUT GATES WITH #12525 
T12 TEST FOR SLOW OUTPUT GATES WITH #52525 
T13 TEST OUTPUT DATA ACCEPT FLAG 

T14 TEST OUTPUT INTERRUPT ENABLE 

T15 TEST INPUT DATA READY FLAG 

T16 TEST INPUT INTERRUPT ENABLE 

T17 TEST EXTERNAL TRANSFERS - CABLE MUST BE CONNECTED 

T20 TEST INPUT WITH #-1 

T21 TEST INPUT WITH #52525 

T22 TEST INPUT WITH #125252 

123 TEST THE NEG. AND TRANSITION LATCHING INPUT DATA BITS 
T24 FLOAT A 1 ACROSS NON-LATCHING INPUT BITS 


2 


31 TEST THAT RESET CLEARS INPUT REGISTER BITS 
132 TEST THAT WHEN OUTPUTTING THE INPUT DATA READY FLAG SETS 
133 TEST THAT WHEN THE INPUT BUFFER IS READ THE OUTPUT FLAG IS SET 
134 TEST THAT INTERRUPT INPUT BITS SET INPUT READY FLAG 
135 TEST THAT NON-INTERRUPT INPUT BITS DO NOT SET INPUT READY FLAG 
136 DETERMINE IF MORE DR11-K'S ARE TO BE TESTED 
END OF PASS ROUTINE 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
SCOPE HANDLER woh 
ERROR HANDLER ROUTINE 
ERROR MESSAGE TYPEOUT ROUTINE 
BINARY TO OCTAL (ASCII) AND TYPE 
POWER DOWN AND UP ROUTINES 
TYPE ROUTINE 
READ AN OCTAL NUMBER FROM THE TTY 
TTY INPUT ROUTINE 
APT COMMUNICATIONS ROUTINE 
TRAP DECODER 
TRAP TABLE 


SEQ 0012 


LPA DR11-K LOGIC TEST +? abe, C MACY11 306(1063) 24- ~0cT-80" 09: 34 PAGE 1 
CRLPAB.MAC 26-SEP-80 13:48 SEQ 0013 


REM [ 

CRLPAB.MAC 
WELCOME, THIS DIAGNOSTIC IS ONE IN A SERIES OF DIAGNOSTIC 
DESIGNED IN ORDER TO AID YOU IN TESTING THE LPA-11XX OPTION. 
1 HOPE THAT YOU HAVE READ THE DOCUMENTATION SECTION OF THIS 
DIAGNOSTIC. IF YOU HAVE,YOU KNOW ABOUT ALL OF THE DIAGNOSTICS 
THAT ARE AVAILIBLE FOR TESTING THE LPA SYSTEM. 


GOOD LUCK ! 


C 
-GLOBL DRLPX2 


WYIWR =O OONAUVIF AN 


Win 
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B 2 
|MPAST..MAC MACY11 306(1063) 24-OCT-80 09:34 PAGE 2 
‘peters: 26-SEP-80 13:48 SEQ 0014 
763 TITLE MMAST.MAC 
764 “IDENT /4.01/ 
766 > LPA11-K MICRO CODE 
768 : CHARLES A. SAMUELSON 
769 : NOVEMBER, 1977 
770 ; 
771 
905 .TITLE DMAST.MAC 
906 "IDENT /4.01/ 
907 ; 
908 > LPA11=K MICRO CODE 
910 > CHARLES A. SAMUELSON 
911 : NOVEMBER, 1977 
912 : 
913 


} 


me 
DMAST MAC MACY11 306(1063) 24-OCT-80 09:34 PAGE 3 
}CRLPFC.P11 23-OCT-80 09:03 SEQ 0015 


.REM! 


THIS IS A LIST OF TESTS titi FROM THIS DIAGNOSTIC. THESE TEST COULD 
NOT BE DONE THROUGH THE LPA-11 


TEST THAT OUTPUT CAN = +b BYTE COUNT PATTERN 

TEST FOR UNEXPECTED INTERR 

TEST THAT THE INPUT CAN NTR. USING MAINT. BIT 

TEST THAT THE INPUT INTR. CLEAR INT. ENABLE VIA MAINT. BIT 

TEST con THE OUTPUT CAN INTR. USING MAINT. BIT 

TEST FOR INTR. FROM DRA INPUT TEST FOR INTR. FROM DRA OUTPUT 
PRE INTERRUPT SETUP 

TEST FOR INTR. FROM DRA INPUT ON LEVEL INDICATED -1 VIA MAINT. INT 
TEST FOR NO INTR. FROM DRA INPUT LEVEL INDICATED VIA MAINT. INT. 
TEST THAT OUTPUT CAN HOLD LOW BYTE COUNT PATTERN 

TEST THAT RESET CLEARS DIGITAL STATUS REGISTER 


_ 
_ 
oa 
nm 


a at nd ot ot 1 I 
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' 
-TITLE LPA DR11-K_ LOGIC TEST MD-11-CRLPF-C 
;*COPYRIGHT (C) 1980 

:*DIGITAL EQUIPMENT CORP. 

; MAYNARD , MASS. 01754 


: “PROGRAM BY EDWARD C. BADGER MOD. BY R. SHOOP 


TATHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 


CO OO mt as at os OWA NI NII NSN NSISIA AAO 
WRw~ ye ye yee yeve vy SHOU ODNOAUFWN—OVONOUEw 


1 
1 167770 ABASE=167770 
1184 100300 AVECT1=100300 
1 11 -SBTTL BASIC DEFINITIONS 
1) s*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
1) 001100 STACK= 1100 
1) -EQUIV EMT,ERROR ;BASIC DEFINITION OF ERROR CALL 
7 “EQUIV I0T, SCOPE  IBASIC DEFINITION OF SCOPE CALL 
1) hsbseine | oui DEFINITIONS 
1) 000011 11 ;;CODE FOR HORIZONTAL TAB 
1) 000012 tre 12 ;;CODE FOR LINE FEED 
1) 000015 CR= 15 ;;CODE FOR CARRIAGE RETURN 
1) 000200 CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
1) 177776 PS= 177776 ;;PROCESSOR STATUS WORD 
1) -EQUIV PS,PSW 
1) 177774 STKLMT= 177774 7;STACK LIMIT REGISTER 
1) 177772 PIRQ= 177772 3;PROGRAM INTERRUPT REQUEST REGISTER 
1) 177570 DSWR= 177570 ;; HARDWARE SWITCH REGISTER 
: 177570 DDISP= 177570 ; ;HARDWARE DISPLAY REGISTER 
1) ;*GENERAL PURPOSE REGISTER per eer user 
1) 000000 RO= x0 ;;GENERAL REGISTER 
1) 000001 R1= %1 Hi ENERAL REGISTER 
1) 000002 R2= x2 ;;GENERAL REGISTER 
1) 000003 R3= <3 7 GENERAL REGISTER 


i pinasiamsinntiriemeepuisitincniciniimasiine Te: ae ee ee 


dD 2 
'LPA DR11-K LOGIC TEST MD-11=CRLPF=C = MACY11 306(1063) 24-OCT-80 09:34 PAGE 3-1 


'CRLPFC.P11 23-OCT-80 09:03 BASIC DEFINITIONS SEQ 0016 
| 
| 641) 000004 R4= %4 ;;GENERAL REGISTER 
(1) 000005 R5= 45 > :;GENERAL REGISTER 
(1) 000006 R6= %6 s GENERAL REGISTER 
(1) 000007 R7= 47 s;GENERAL REGISTER 
(1) 000006 SP= %6 s:STACK POINTER 
y 000007 PC= %7 +;PROGRAM COUNTER 
(1) s*PRIORITY LEVEL DEFINITIONS 
(1) 000000 PRO= 0 : PRIORITY LEVEL 0 
(1) 000040 PP i= 40 s;PRIORITY LEVEL 1 
(1) 000100 PR2= 100 ‘PRIORITY LEVEL 2 
(1) 000140 PR3= 140 *:PRIORITY LEVEL 3 
(1) 000200 PR4= 200 ::PRIORITY LEVEL 4 
(1) 000240 PR5= 240 >:PRIORITY LEVEL 5 
(1) 000300 PR6= 300 S:PRIORITY LEVEL 6 
+f 000340 PR7= 340 s:PRIORITY LEVEL 7 
(1) :*''SWITCH REGISTER’ SWITCH DEFINITIONS 
(1) 100000 Sw15= 100000 
(1) 040000 Sw14= 40000 
(1) 020000 Swi3= 20000 
(1) 010000 Swi2= 10000 
(1) 004000 SWil= 40 
(1) 002000 Swi0= 2000 
(1) 001000 swo9= 1000 
(1) 000400 swO8= 400 
(1) 000200 sw07= 200 
(1) 000100 sw06= 100 
(4) 000040 swOS= 4 
(1) 000020 Sw04= 20 
(1) 000010 SwO3= 10 
(1) 000004 SWO2= 4 
(1) 000002 SwOl= 2 
(1) 000001 swod= 1 
(1) EQUIV Sw09,SW9 
(1) EQUIV SW08,SW8 
(1) EQUIV SWO7,SW7 
(1) EQUIV SW06,SW6 
(1) EQUIV sw05,SW5 
(1) EQUIV SW04,SW4 
(1) EQUIV Sw03,SW3 
(1) EQUIV Sw02,Sw2 
(1) -EQUIV SWO1,SW1 
) EQUIV Sw00,SWO 
(1) s*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 100000 
(1) 040000 BIT14= 40000 
(1) 020000 BIT13= 20000 
(1) 010000 BIT12= 10000 
(1) 004000 BIT11= 4000 
(1) 002000 BIT10= 2000 
(1) 001000 BITO9= 1000 
(1) 000400 BITO8= 400 
| (1) 000200 BITO7= 200 
(1) 000100 BIT06= 100 


= 
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11 306(1063) 
CRLPFC.P11 23-OCT-80 09: BASIC DEFINITIONS SEQ 0017 

1) 000040 BITOS= 40 
(1) 000020 BITO4= 20 
(1) 000010 BITO3= 10 
(1) 000004 BITO2= 4 
1) 000002 BITOI= 2 
(1) 000001 BITOO= 1 
a) EQUIV B1T09,B1T9 
(1) EQUIV B1TO8,B1T8 
(1) EQUIV B1T07.B117 
(1) EQUIV B1T06.B1T6 
q) EQUIV BITOS,BITS 
(1) EQUIV BIT04,BIT4 
1) EQUIV B1T03.B1T3 
(1) SEQUIV B1T02,BIT2 
(1) “EQUIV B1T01,B1T1 
wD ZEQUIV B1T00,B1TO 
(1) ;*BASIC "CPU" TRAP VECTOR ADDRESSES 
1) 000004 ERRVEC= 4 ;TIME OUT AND OTHER ERRORS 
1) 000010 RESVEC= 10 RESERVED AND ILLEGAL INSTRUCTIONS 
1) 000014 TBITVEC=14 BIT 
(1) 000014 TRIVEC= 14 ‘TRACE TRAP 
(1) 000014 BPTVEC= 14 !IBREAKPOINT TRAP (BPT) 
(1) 000020 IOTVEC= 20 ZTINPUT/OUTPUT TRAP (IOT) **SCOPE*s 
1) 000024 PWRVEC= 24 ;:POWER FAIL 
(1) 000030 EMTVEC= 30 + sEMULATOR TRAP (EMT) **ERROR** 
(1) 000034 TRAPVEC=34 ; AP*’ TRAP 
(1) 000060 TKVEC= 60 :TTY KEYBOARD VECTOR 
(1) 000064 TPVEC= 64 pitty PRINTER VECTOR 
(1) 000240 PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 

1186 -SBTTL OPERATIONAL SWITCH SETTINGS 
) ie SWITCH USE 
(1) 7: 060 omeese = BSCR E Ce eNSeREESS 
(1) i* 15 HALT ON rs 
(1) i 14 LOOP ON TEST 
(1) ye 13 INHIBIT ERROR TYPEOUTS 
(1) ye 12 LOOP ON CURRENTLY SELECTED DR11-k 
(1) :* 10 OUTPUT TO INPUT WRAPAROUND CABLE NOT CONNECTED 
(1) i 9 LOOP ON ERROR 
a) i 2 LOOP ON TEST IN SWR<7:0> 

"1 

1188 .SBTTL TRAP CATCHER 

) 

(1) 000000 =0 : z 
(1) ;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN Ane t2eHALT 
(1) T*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
) ate :*LOCATION Q CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
(1) 
(1) 000174 000000 DISPREG: “WORD 0 ;;SOFTWARE DISPLAY REGISTER 
(1) 000176 000000 SWREG: ,WORD 0 iISOFTWARE SWITCH REGISTER 
(1) SBTTL STARTING ADDRESS(ES) 
(1) 000200 000137 001544 JMP  @#BEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM 


' _ = - —— 
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jCRLPFC. Pil 23-OCT-80 09:03 STARTING ADDRESS(ES) SEQ 0018 
1190 000204 000137 001554 JMP @#BEGINI ; JUMP TO THE RESTART ADDRESS 
1 000210 000137 013476 ~ O#EXTTST ; JUMP TO THE CONTROL LINES LOOP 
1 000214 000137 022200 a#SUTK ; JUMP TO THE USER LINK LOOP 
1 - SBTTL act HOOKS 


PRR RAR AO RAR ARETE TEA TE EET eee ATR eT AAT ee RATE ERE e eee 
;HOOKS REQUIRED BY ACT11 
000220 $SVPC=. ;SAVE PC 


000046 =46 
000046 013216 SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 000000 - "WORD 0 ;:2)SET LOC. 552 TO ZERO 

000220 + T2$svPc tt RESTORE P 


— 


ee ee eee ee ee ee ee i el ee a et ieee 
ee at a ot 2 os a ff) NS OO St SP SS SY SN" OOO 
ee te A Sl ei it i ti © Le 


-=1000 
-SBTTL APT PARAMETER BLOCK 


FERRARA EERE AREA AAA EEA ERA AERA AREER ARR EREEEER RARE 


Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


PRR EEE TEETER AREER AREER AEE EEAR EATER EAR 


001000 ~$X=. = 5 ;SAVE_ CURRENT LOCATION 

000024 .=24 3;SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 7;FOR APT START UP 

000044 .=44 3;POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 

001000 -=.$X  ;;RESET LOCATION COUNTER 


Eerie tit tigi titi tisti tii tiitii iii tills iii iii terre rrr re rrr 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


001000 SAPTHD: 

001000 000000 $HIBTS: .WORD 0 ;;TWO HIGH BITS OF 18 BIT MAILBOX oe 

001002 001166 $MBADR: .WORD $MAIL ie tin OF APT MAILBOX (BITS 0-15 

001004 000030 STSTM: .WORD 30 ;;RUN TIM OF LONGEST TEST 

001006 000010 SPASTM: .WORD 10 :FRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

001010 000030 SUNITM: .WORD 30 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


001012 00003' “WORD $ETEND-SMAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 


| 
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001100 
000000 


000000 


MACY11 306(1063) 
COMMON TAGS 


~SBTTL 


COMMON TAGS 


G 2 
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SERRA AERA AAA AEA AAA EA RET EA TEER ATER AA AAEKEEEEAATE REA KER RATES 


;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


-=1100 
SCMTAG: 3;START OF COMMON TAGS 

«WORD 0 
STSTNM: .BYTE 0 ;;CONTAINS THE ae NUMBER 
SERFLG: .BYTE 0 ;;CONTAINS ERROR FLAG 
SICNT: .WORD 0 3; CONTAINS SUBTEST ITERATION COUNT 
$LPADR: .WORD 0 ;;CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 ;;CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 ;;CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 ;;CONTAINS ITEM CONTROL BYTE 
SERMAX: .BYTE 1 ;;CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 ;;CONTAINS PC OF LAST ERROR INSTRUCTION 
S$GDADR: .WORD 0 ;;CONTAINS ADDRESS OF ‘GOOD" DATA 
$BDADR: .WORD 0 ;;CONTAINS ADDRESS OF ‘BAD’ DATA 
$GDDAT: .WORD 0 ;;CONTAINS 'GOOD* DATA 
SBDDAT: .WORD 0 7;CONTAINS 'BAD' DATA 

—. ;;RESERVED--NOT TO BE USED 
$AUTOB: .BYTE 0 ; AUTOMATIC MODE INDICATOR 
SINTAG: pois s e >; INTERRUPT MODE INDICATOR 

ORD DSW ;;ADDRESS OF SWITCH REGISTER 


LJ 
— 
wn 
v 
a 
> 
~< 
=< 
oO 
x 
Co 
L=J 
= 
_ 
i74) 
wv 


;;ADDRESS OF DISPLAY REGISTER 
3;TTY KBD STATUS 
:;TTY KBD BUFFER 
::TTY PRINTER STATUS REG. ADDRESS 
zs; TTY PRINTER BUFFER REG. ADDRESS 
: : CONTAINS NULL CHARACTER FOR FILLS 
;:CONTAINS # OF FILLER CHARACTERS REQUIRED 
2 :: INSERT FILL CHARS. AFTER A “LINE FEED" 
2: "TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES) 
: ;;ESCAPE ON ERROR ADDRESS 
$QUES: .ASCII /?/ 3; QUESTION MARK 
SCRLF: .ASCII <15> 3: CARRIAGE RETURN 
SLF: -ASCIZ <12> s;LINE FEED 


SLR AAT AAA ATER E TERETE ETAT RAR AHA KAA RAE RARER EAE 


"SBTTL APT MAILBOX-ETABLE 
SL RAAA AAA R ARTE RAAAAAAA TAT ARATA AAA Ke RAK KA KAKA KEK KAKE KAKA Kee Ee 
$MAIL: ::APT MAILBOX 


AMSGTY ;;MESSAGE TYPE CODE 
3;FATAL ERROR NUMBER 
T NUMBER 


AMSGLG + MESSAGE L 
SETABLE : 
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CRLPFC P11 23-OCT-80 09:03 APT MAILBOX~E TABLE SEQ 0020 
(2) 901206 000 SENV: .BYTE AENV ; ENVIRONMENT BYTE 
(2) 001207 000 SENVM: .BYTE AENVM Fy he ep nd MODE BITS 
(2) 001210 000000 SSWREG: .WORD ASWREG ;;APT geht REGISTER 
(2) 001212 000000 SUSWR: .WORD AUSWR : USER SWITCHES 
(2) 001214 000000 SCPUGP: .WORD ACPUOP ;;CPU TYPE,OPTIONS 
(2) ;* BITS 15-11=CPU TYPE 
(2) ;* 11/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
(2) :* 11/70=06 ,PDQ=07 ,0=10 
(2) 32 BIT 10=REAL TIME CLOCK 
(2) “hd BIT Q=FLOATING POINT a 
(2) :* BIT 8=MEMORY MANAGEMENT 
(2) 001216 000 $SMAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
(2) 001217 000 $MTYP1: .BYTE AMTYP1 ::MEM. TYPE,BLKA1 
(2) 7* MEM.TYPE BYTE == (HIGH BYTE) 
(2) :* 900 NSEC CORE=001 
(2) :@ 300 NSEC BIPOLAR=002 
(2) ;* 500 NSEC MOS=003 
(2) 001220 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS ,BLK#1 : 
(2) :* MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF "‘TYPE'’ ABOVE 
(2) 001222 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 
(2) 001223 000 SMTYP2: .BYTE AMTYP2 MEM. TYPE ,BLKA2 
(2) 001224 000000 SMADR2: .WORD AMADR2 :2MEM.LAST ADDRESS ,BLK#2 
(2) 001226 000 $MAMS3: .BYTE AMAMS3 ;;HIGH ADDRESS,M.S.BYTE 
(2) 001227 000 SMTYP3: .BYTE AMTYP3 TIMER. TYPE ,BLK#3 
(2) 001230 000000 SMADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS,BLK#3 
(2) 001232 000 SMAMS4: .BYTE AMAMSG ;;HIGH ADDRESS,M.S.BYTE 
(2) 001233 000 SMTYP4: .BYTE AMTYP4 ;;MEM.TYPE /BLKAG 
(2) 001234 000000 SMADR4: .WORD AMADR4 Lgl LAST ADDRESS,BLK 
(2) 001236 100300 $SVECT1: .WORD AVECT1 ee INT ERRUPT VECTORA1, BUS PRIORITY#1 
(2) 001240 000000 SVECT2: .WORD AVECT2 ;; INTERRUPT VECTORM2BUS PRIORITYA2 
(2) 001242 167770 $BASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001244 000000 SDEVM: .WORD ADEVM ;;DEVICE MAP 
(2) 001246 000000 $CDW1: .WORD ACDW1 ;;CONTROLLER DESCRIPTION WORD#1 
Bain li 
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(CRLPFC.P11 23-OCT-80 09:03 ERROR POINTER TABL SEQ 0021 
By .SBTTL ERROR POINTER TABLE 
(1) s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
(1) 3*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
(1) s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
(1) ;*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
a, s*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
(1) 3 EM s;POINTS TO THE ERROR MESSAGE 
(1) 7” DH :;POINTS TO THE DATA HEADER 
(1) 3* DT s;POINTS TO THE DATA 
a 3* DF ;;POINTS TO THE DATA FORMAT 
(1) 
(1) 001250 SERRTB: 
1197 
1198 :1TEM 1 
1199 001250 014416 EM1 sSTATUS REGISTER IN ERROR 
1200 001252 015036 DH1 sERRPC DRADD STATUS EXPECTED 
1201 001254 015326 DT1 sSERRPC DRADD SBDDAT $GDDAT 
1202 001256 015370 DFO 
1203 
1204 z1TEM 2 
1205 001260 014447 EM2 s INPUT REGISTER IN ERROK 
1206 001262 015106 DH2 sERRPC DRADD INPUT EXPECTED 
1207 001264 015326 DT1 sSERRPC DRADD SBDDAT $GDDAT 
1208 001266 015370 DFO 
1209 
1210 sITEM 3 
1211 001270 014477 EM3 ;OUTPUT REGISTER IN ERROR 
1212 001272 015154 DH3 sERRPC DRADD OUTPUT EXPECTED 
1213 001274 015326 DT1 sSERRPC DRADD SBDDAT $GDDAT 
1214 001276 015370 DFO 
1215 ? 
1216 sITEM 64 
1217 001300 014530 EM4 ; INPUT FAILED TO INTERRUPT 
1218 001302 015222 DH4 sERRPC DRADD 
1219 001304 015342 DT4 ;SERRPC DRADD 
1220 001306 015370 DFO 
1221 
1222 zITEM = 65 
1223 001310 014562 EMS sOUTPUT FAILED TO INTERRUPT 
1224 001312 015222 DH4 sERRPC DRADD 
1225 001314 015342 DT4 sSERRPC DRADD 
1226 001316 015370 DFO 
1227 
1228 ;1TEM 66 
1229 001320 014615 EM6 ;UNEXPECTED INTERRUPT 
1230 001322 015222 DH4 sERRPC DRADD 
1231 001324 015342 DT4 sSERRPC DRADD 
1232 001326 015370 DFO 
1233 
1235 sI1TEM 367 
1236 001330 014642 EM7 sOPERATOR INTERVENTION ERROR 
1237 001332 015222 : DH4 sERRPC DRADD 
1238 001334 015342 DT4 ;SERRPC DRADD 
| 
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CRLPFC.P11 23-0CT=-80 09:03 ERROR POINTER TABLE SEQ 0022 
1239 001336 015370 DFO 
1240 
1241 s1TEM §=10 
1242 001340 014676 EM10 s INTERRUPT INPUT BIT FAILED TO SET INPUT READY 
1243 001342 015247 DHK10 sERRPC DRADD STATUS EXPECTED INPUT BIT 
1244 001344 015352 DT10 sSERRPC DRADD S$BDDAT $GDDAT BRLEV3 
1245 001346 015370 DFO 
1246 
1247 sITEM = 11 
1248 001350 014761 —M11 sNON-INTERRUPTING INPUT BIT SET INPUT READY 
1249 001352 015247 DH10 sERRPC DRADD STATUS EXPECTED INPUT BIT 
1250 001354 015352 DT10 sSERRPC DRADD $BDDAT $GDDAT BRLEV3 
isa) © 001356 015370 DFO 
(1) sADDRESS OF KMC-11 OF LPA=11 THE ADDR FOR KMADO MAY BE 
(1) ; CHANGED BY THE USER TO REFLECT 
(1) : A DIFFERENT KMC-11 ADDR. THE 
(1) : REST OF THE ADDRESSES WILL 
a3 ; BE CHANGED BY THE PROGRAM. 
(1) 
(1) 001360 LPCI: 
Mu 001360 170460 KMADO: .WORD 170460 BASE KMC ADDR. MAY BE PATCHED BY USER. 
(1) 001362 | PMR: 
(1) 001362 170461 KMAD1: .WORD 170460+1 ;>D0 NOT <;KMC-CSR ADDR 
(1) 001364 LPCO: 
(1) 001364 170462 KMAD2: .WORD 170460+2 :>PATCH <: 
(1) 001366 LPSO: 
(1) 001366 170463 KMAD3: .WORD 170460+3 s>THIS AREA < 
(1) 001370 LPADL: 
(1) 001370 170464 KMAD4: .WORD 170460+4 : 
(1) 001372 LPADH: 
(1) 001372 170465 KMAD5: .WORD 170460+5 7>DO NOT < 
(1) 001374 LPMS1: 
(1) 001374 170466 KMAD6: .WORD 170460+6 :>PATCH < 
(1) 001376 LPMS2: 
ah 001376 170467 KMAD7: .WORD 170460+7 ;>THIS AREA < 
(1) 001400 000300 VECTOR: .WORD AVECT18&777 BASE VECTOR OF KMC 
3a 001402 000304 VECTPS: .WORD 4+AVECT1&777 sVECOTR ADDR.+2 
Ay 001404 000005 VERSN: .WORD 5 sCURRENT VERSION NUMBER OF MICROCODE. 
(1) 001406 000000 -DVLS: .WORD 0 :/DEVICE LIST OF I/O ADDR. DEFINED 
(1) 001410 000020 -BLKW 16. 3;/BY INIT. 
133 
1254 001450 167770 BASEBA: 167770 ;STARTING BASE BUS ADDRESS 
1255 001452 000300 BASEIV: 300 STARTING BASE INTERRUPT ADDRESS 
1256 001454 000200 BASEBR: 200 
Soe 001456 000240 CPU: 240 i] MS. CPU DELAY FACTOR = tS FOR " 195 
1259 001460 000000 NMBEXT: 0 “ADDITIONAL DR-11-K 
1c60 001462 000000 NBEXT: 0 


eo —_ jeenienaneeiniligen 
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ERROR POINTER TABLE 


JUMPER : 
STMDAT: 


167770 
300 


;CURRENT DR11-K STARTING ADDRESS 
;CURRENT DR11=-K STARTING INTERRUPT VECTOR 


;LOC BOX #1 ADDR 
:LOC BOX #2 ADDR 
;LOC BOX #3 ADDR 

:DR STATUS 

; INPUT REG. 

OUTPUT REG. 

;OUTPUT REG HIGH BYTE 


31 IF RUNNING H322 JUMPER CONFIG ;2 IF COULTER JUMPER CONFIG 


MPR ASSES ESLESLAESLALLASERS ALAR E RASA REE RASA RAR ARRAS SS SO 


DIGITAL 1-0 LOGIC TEST 


PERRET EERE EAE ERE ERE 


BEGIN: 


BEGIN1: 


RBEG: 


#STAC 
:: INITIALIZE A FEW VEC 


RO ;CLEAR RO 
hg ; INDICATE NORMAL FACTORY BUILD 
#-1,R0 ;LOAD RO 


N 
INITIALIZE THE COMMON TAGS 


THE COMMON TAGS (S$CMTAG) AREA 


#SCMTAG,RO :eFIRST LOCATION TO BE CLEARED 
(R6)+ 3;CLEAR MEMORY LOCATION 
#SWR,R6 ;; DONE? 

76 ;LOOP BACK IF 


2s NO 
K,SP :;SETUP THE STACK POINTER 


CTORS 
#SSCOPE ,a#1OTVEC ies VECTOR FOR SCOPE ROUTINE 
#340 ,a#1OTVEC+2 ;:LEVEL 7 

#SERROR ,QHEMTVEC Hs) VECTOR FOR ERROR ROUTINE 
#340 ,a#EMTVEC+2 ;:LEVEL 7 

#STRAP ,a#TRAPVEC oC TRAP VECTOR FOR TRAP CALLS 

#340 a#TRAPVEC+2;LEVEL 7 

#SPURDN, a#PWRVEC ::POuER FAILURE VECTOR 

#340, a#@PWRVEC+2 ;:LEVEL 7 

SENDCT. SEOPCT SETUP END-OF -PROGRAM COUNTER 
SESCAPE 7;CLEAR THE ESCAPE ON ERROR ADDRESS 


#1, SERMAX 7;ALLOW ONE ERROR PER TEST 
.- -SLPADR 7; INITIALIZE THE LOOP ADDRESS FOR SCOPE 
. -SLPERR 7;SETUP THE ERROR LOOP ADDRESS 


SEQ 0023 


—__— ——E — Ee —— = 
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| (2) ;3S1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
} @ S:EQUAL TO A" i" SETUP FOR A SOF TWARE SuITCH REGISTER. 
| (2) 001716 +=013746 000004 MOV AFERRVEC,-(SP) :;SAVE ERROR VECTOR 
| = (2)-«001722-«:012737 «001756 000004 MOV Hous, ave aavec 33SE! uP ERROR VECTOR 
(2) 001730 012737 177570 001140 MOV #DSWR,SWR i: SETUP FOR A HARDWARE SWICH REGISTER 
(2) 001736 012737 177570 001142 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
(2) 001744 022777 177777 177166 CMP #-1,aSuR =TRY TO REFERENCE HARDWARE SWR 
(2) 001752 001012 BNE 66$ ; }BRANCH IF NO TIMEOUT TRAP OCCURRED 
(2) ‘AND THE HARDWARE SWR IS NOT = -1 
(2) 001754 000403 BR 65$ ::BRANCH IF NO TIMEOUT 
(2) 001756 012716 001764 64$: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 
(2) 001762 000002 RTI 
(2) 001764 012737 000176 001140 65$: MOV #SWREG, SWR ::POINT TO SOFTWARE SWR 
(2) 001772 012737 000174 001142 MOV #DISPREG, DISPLAY 
(2) 002000 012637 000004 66$: MOV (SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 
(2) 002004 005037 001174 CLR SPASS sCLEAR PASS COUNT 
(2) 002010 132737 000200 001207 BITB  #APTSIZE,SENVM rITEST USER SIZE UNDER | apt 
(2) 002016 001403 BEQ 67$ :YES,USE NON-APT SWITC 
(2) 002020 012737 001210 001140 MOV #SSWREG, SWR t:NO,USE APT SWITCH REGISTER 
2 002026 67$: 
(1) [THIS SECTION OF CODE HANDLES INITIALIZING LPA-11 FUNCTIONS 
(1) 
(1) 002026 010046 MOV RO,-(SP) 
(1) 002030 010146 MOV R1.-(SP) 
(1) 002032 013700 001360 MOV KMADO,RO :GET KMC-11 ADDRESS. 
(1) 002036 012701 001362 MOV #KMADI,R1 ‘GET ADDR. OF ADDR. LIST. 
(1) 002042 005200 68S: INC RO sUPDATE ADDR. 
(1) 002044 010021 MOV RO, (1) ‘WRITE ADDR. 
(1) 002046 020127 001400 CMP R1_#KMAD7+2 “DONE ALL ADDRESSES? 
(1) 002052 001373 BNE 68$ ‘NO - DO NEXT ADDR. 
(1) 002054 005037 001406 CLR .DVLS “CLR ADDR. LIST. 
(1) 002060 012601 MOV (SP)+,R1 
(1) 002062 012600 MOV (SP)+.RO 
1305 002064 013737 001242 001450 MOV SBASE ,BASEBA :GET APT DEFINED ADDRESS 
1306 002072 013737 001236 001452 MOV SVECTI,BASELV ‘GET VECTOR 
1307 002100 042737 160000 001452 BIC #160000, BASE LV 
1308 002106 113737 001237 001454 MOVB  $VECT1+1,BASEBR :GET PRIORITY 
1309 002114 042737 177437 001454 BIC #177437 ,,BASEBR 
1310 002122 012737 002170 000004 MOV #1$,,a#ERRVEC ; sLOAD BUS ERROR 
1311 002130 013702 001450 MOV BASEBA,R2 [LOAD STARTING ADDRESS 
1312 002134 005903 CLR R3 :CLEAR COUN 
1313 002136 010237 001542 2$: MOV R2,$TMDAT TEST IF ORISTENT 
(1) MOV QSTMDAT,SGDDAT ;/READ DEVICE REG STMDAT,PUT DATA IN $GDDAT. 
1315 002152 005737 021104 TST $SAERR 
1316 002156 001004 BNE 1$ 
1317 002160 162702 000010 SUB #10,R2 SEXIST, UPDATE TEST ADDRESS 
1318 002164 005203 INC R3 [UPDATE # OF DR11'°S 
1319 002166 000763 BR 2$ 
1320 002170 005703 1$: TST R3 sTEST IF FIRST DOES EXIST 
1321 002172 001014 BNE 3$ ; 
1322 002174 032777 020000 176736 BIT ¥SW13,aSWR “TEST IF INHIBIT TYPEOUT 
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000745 
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013660 
100000 


001460 
000001 
003266 
177777 
015216 
002356 
000042 
001206 
001140 
000001 
001460 


002462 
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176722 
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000042 
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001540 
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INITIALIZE THE COMMON TAGS SEQ 0025 
BNE 4$ ;BR IF YES 
TYPE, BUSTRP ;TELL OPERATOR ~— DR11K DOESN'T EXIST 
4$: BIT #SWiS,aSWR TEST _ ON ERR 
BEQ 5$ ‘BR IF NO HALT 
HALT FIRST DRI ion DOES NOT EXIST 
sCHECK THE PROGRAM DEVICE ADDRESS 
5$: BR 2$ ;TRY AGAIN 
3$: DEC R3 ADJUST R3 
MOV R3,NMBEXT :SAVE THE NUMBER OF ADDITIONAL DR11-K 
MOV #VECTRP,a#ERRVEC RESET BUS ERROR 
MOV #340 ,a#ERRVEC+2 
RBEG1: JSR ,SRESET 
CMPB #1,$AUTOB ;TEST IF UNDER A MONITOR 
BEQ 4$ ;BR IF 
TST RO sTEST RO 
BEQ 2$ ;BR IF CLEARED 
+ JMP IOTEST ; JUMP IF SET 
-SBTTL TYPE PROGRAM NAME 
>; TYPE THE — OF THE PROGRAM IF FIRST PASS 
IN #-1 ST TIME? 
BNE 64% * BRANCH IF NO 
CMP #SENDAD ,a#42 szACT=11? 
< 64$ oy IF YES 
YPE ,65$ YPE ASCIZ STRING 
. SBTTL GET VALUE FOR SOFTWARE stich REGISTER 
a#42 ARE WE RUNNING UNDER XXDP/ACT? 
BNE re a8 NCH IF YES 
CMPB SENV,#1 ARE WE RUNNING UNDER APT? 
BEQ 6 BRA NCH IF YES 
MP SWR,#SWREG «SOF TWARE SWITCH REG SELECTED? 
BNE 67$ 3;;BRANCH IF NO 
es $78 3:GET SOFT-SWR SETTINGS 
aes MOVB #1,$AUTOB 3:SET AUTO-MODE INDICATOR 
64$ :GET OVER THE ASCIZ 
Ts ASCIZ CRLF ><15><12>"'CRLPFC LPA/DR11-K INPUT-OUTPUT DIAGNOSTIC ‘'<15><12><C 
MOY NMBEXT,-(SP) 
TYPOS 
«WORD 2 
TYPE 69% si TYPE ASCIZ ees 
R 68$ ::;GET OVER THE ASCIZ 
Ft ASCIZ /(8) ADDITIONAL DR11-K'S CONNECTED/<15><12> 
CMP #1, JUMPER ; TEST 4 LOC-BOX CONFIG. 
BNE 1$ ‘BR IF N 
CLR NOTLCH ;LOAD LOC-BOX JUMPER CONFIG 
MOV #-1,INTBIT : 
CLR MINSIN 
CLR TRANST 
JMP  —s LOTEST RUN THE LOGIC TEST WITH LOC-BOX JUMPERS 
1$: CMP ° #2,JUMPER . sTEST IF COULTER CONFIG. 
BNE 3$ ;BR IF NOT 


‘LPA DRI1-K LO 
CRLPFC.P11 
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1386 002734 
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1389 002742 
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012737 


001536 


012737 
033737 


104007 
000137 
006137 
103362 
004537 
000137 


021627 


177777 =001506 
170000 001510 
001534 


170000 001536 
66 

001134 

003266 

003202 

003202 

003202 

003202 


010000 001124 
001124 001534 


001124 001536 
001544 
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003202 
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001000 
000200 


003200 
000004 003200 
020000 176116 
003032 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0026 
MOV #-1,NOTLCH :LOAD COULTER JUMPER CONFIG. 
MOV #176000, INTBIT 
CLR MINSIN 
MOV #170000, TRANST 
JMP 1OTEST :RUN THE LOGIC TEST WITH COULTER JUMPERS 
3$: TSTB $AUTOB ‘TEST IF RUNNING UNDER A MONITOR 
BEQ 20$ ‘BR IF NOT 
JMP IOTEST *RUN THE LOGIC TESTS 
20S: JSR R5, TALK ‘TALK TO THE ANIMALS 
NOTLC :ABOUT NON LATCH INPUT BITS 
ISR ; RS, TALK ‘TALK TO THE ANIMAL AGAIN 
N 
INTBI :ABOUT THE INTERRUPTING BITS 
ISR RS, TALK ‘ISN'T THIS BOARING 
MINS] :AGAIN-ABOUT THE MINUS INPUT BITS 
JSR RS, TALK :HO-HUM 
SWTRAB 
TRANST sAGAIN-ABOUT THE TRANSITION BITS 
: DETERMINE THAT THE OPERATOR DID NOT MAKE A LOGICAL SWITCH ERROR 
#B1T12,$GDDAT LOAD TEST 
10$: BT $GDDAT .MINSIN “TEST IF NEG Input BIT 
BEQ 11$ ‘BR IF NOT 
BIT $GDDAT, TRANST iTEST IF TRANS. INPUT 
BEQ 11$ NOT 
ERROR 7 SP OGICAL OPERATOR ERROR 
‘INPUT BIT CANNOT BE NEG. AND TRANS. AT THE SAME 
JMP BEGIN : 
11$: ROL $GDDAT :MOVE LEFT 
BCC 10$ ‘BR UNTIL DONE 
JSR RS, TALK :ASK THE OPERATOR 
SWDPOB 
BRLEV3 : ABOUT PROGRAM OPTIONS 
JMP 1OTEST 
s INTERRUPT TO UNEXPECTED VECTOR 
VECTRP: CMP (SP) ,#1000 :TEST IF IN PROGRAM CODE 
BLO ‘BR IF NOT 
70$: ee 708 sFATAL BUS TRAP IN PROGRAM AREA 
1$: CMP (SP) ,#200 :TEST IF IN SACRED VECTOR AREA 
BHI 2$ ‘BR IF NOT 
71$: HALT cd “FATAL VECTOR TRAP 
2s: MOV (SP)+, 72% :GET ADDR THE TRAP OCCURRED TO 
SUB 64, 72% [MAKE REAL ADDR 
BIT #SW13,aSwR [TEST IF TYPE ERROR INHIBIT 
BNE 3$ “BR IF INHIBIT 
TYPE 65% ii TYPE ASCIZ STRING 
R 64$ GET OVER THE ASCIZ 
ij? ASCIZ <15><12>/DR11K INTERRUPTED TO LOC. / 


| 


8 3 
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CRLPFC.P11 23-OCT-80 09:03 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0027 
1408 003070 013746 003200 MOV 72$,-(SP) sLOAD VALUE TO BE TYPED 
1409 003074 104402 TYPOC 
1410 003076 104401 003104 TYPE ,67$ :; TYPE ASCIZ STRING 
(1) 003102 000420 BR 66$ ::GET OVER THE ASCIZ 
(1) :367$: .ASCIZ / AND WILL NOW USE THAT VECTOR/<15><12> 
(1) 003144 66$: 
1411 003144 042737 000007 003200 3$: BIC #7,72% ;MASK OFF LOWER 3 BITS 
1412 003152 032777 100000 175760 BIT #SW15,aSWR sTEST IF HALT ON ERROR 
1413 003160 001401 BEQ 4$ :BR IF NOT 
1414 003162 000000 HALT :DR11K INTERRUPTED TO WRONG VECTOR=PROG WILL NOW USE THAT VECTOR 
1415 3164 022626 4$: CMP (SP)+,(SP)+ sCLEAN THE STACK 
1416 003166 013737 003200 001466 MOV 72$,0R1V :LOAD NEW VECTOR ADDRESS 
1417 003174 000137 003314 JMP RBEG2 :TEST THE DR11K AT THE NEW VECTOR 
ite 003200 000000 72$: 0 
1759 OPERATOR QUESTIONS AND ANSWER ROUTINE 
1422 003202 012537 003214 TALK: MOV (R5)+,10$ :GET ASCII POINTER 
1423 003206 012537 003260 MOV (R5)+,11$ :GET POINTER TO DATA FROM OPERATOR 
1424 003212 104401 TYPE 
1425 003214 013721 10$: SWNLB TELL OPERATOR TO LOAD SWITCHES 
1426 003216 023727 001140 000176 CMP SWR,#SWREG :TEST IF SWITCH REG. EXISTS 
1427 003224 001006 BNE 1$ ;BR IF NO 
1428 003226 104401 020041 TYPE ,SMSWR :TYPE ‘'SWR ="' 
1429 003232 104412 RDOCT sREAD OCTAL 
1430 003234 012677 175700 MOV (SP)+,aSWR SAVE THE SWITCHES 
1431 003240 000403 BR 2$ 
1432 003242 104401 1$: TYPE 
1433 003244 014374 DEPCNT TELL OPERATOR TO DEPRESS CONT 
1434 003246 000000 HALT :WAIT FOR OPERATOR 
1435 003250 017777 175664 000002 2$: MOV aSwR,aii$ LOAD SWITCH VALUE 
1436 003256 000205 RTS R5 sEXIT 
Se 003260 001506 11$: NOTLCH sPOINTER TO DATA TO BE LOADED 


| 

| 

| 1439 SUNEXPECTED INTERRUPT 
| 1440 003262 104006 UNEXPT: ERROR 6 sUNEXPECTED INTERRUPT DURING A SUB-TEST 
1441 003264 000002 RTI EXIT 

1443 003266 004737 022056 IOTEST: JSR PC, SRESET 

| 1444 003272 013737 001450 001464 MOV BASEBA, DRADD :LOAD INITIAL STARTING ADDRESS 
1445 003300 013737 001452 001466 MOV BASEIV,DRIV ‘LOAD INITIAL STARTING VECTOR 
1446 003306 013737 001460 001462 MOV NMBEXT,NBEXT “RELOAD # AVAILABLE 
1447 003314 004737 022056 RBEG2: JSR PC, SRESET 

1448 003320 012701 000240 MOV #240,R1 sLOAD R1 
1449 003324 012702 000242 MOV #242 ,R2 

| 0221 5$: MOV R2,(R1)+ :SAVE THE ADDRESS 
721 004700 MOV #4700, (R1)+ “LOAD "JSR 

22 CMP (R2)+,(R2)+ “SUMP R2 

27 001076 CMP R2, #SCMTAG-2 ‘TEST FOR LAST 

| 5$ “BR UNTIL DONE 


PC,RO"’ 


1456 003346 004737 022056 IOTST1: JSR PC,,SRESET 

1457 003352 004737 003360 JSR PC,SETADD :SET UP BUS ADDRESS AND VECTOR 
1458 003356 000453 BR 10TTS1 

1459 003360 013737 001464 001476 SETADD: MOV DRADD,,GRSTAT ;LOAD 1ST ADDRESS 

1460 003366 013737 001464 001500 MOV DRADD ,GRDAI ;LOAD 2ND ADDRESS 


—— — 


eter P11 


| 
| 1461 003374 


003602 


(2) 003640 
1488 003642 
1489 003650 


1492 003676 


(2) 003710 
1496 003712 
1497 003716 


062737 


012777 


060004 


012737 


000004 
012737 
012737 


023737 
001401 
104003 


000004 
005037 
012737 


000002 


000006 
001454 


000340 


000001 
000001 
000000 


177777 
177777 
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T VALUE FOR SOFTWARE SWITCH REGISTER 


ADD #2,GRDAL 
MOV DRADD,GRDIO ;LOAD 3RD ADDRESS 
ADD #4 ,GROLO 
MOV DRADD, GREHIO ;LOAD 4TH ADDRESS 
ADD #5, GRBHIO 
MOV DRIV,GRIVA ;LOAD FIRST VECTOR 
MOV DRIV,GRIVSA 
ADD #2,GRIVSA 
MOV DRIV,GRIVB ;LOAD 2ND VECTOR 
ADD #4 ,GRIVB 
MOV DRIV,GRIVSB 
ADD #6,GRIVSB 
RTS PC 

IOTTS1: MOV BASEBR ,DIOBRL ;LOAD BR LEVEL 
CLR DJMP 


OD 
BIS MINSIN,ODDJMP 
BIS TRANST ,ODDJMP 


;SET MINUS INPUT BITS 
;SET TRANSITION INPUT BITS 


MOV #UNE XPT ,@GRIVA RESET INPUT VECTOR 
MOV #340,aGRIVSA 
MOV #UNEXPT ,aGRIVB ;RESET OUTPUT VECTOR 
MO #340, aGRIVSB 
SERRA RARER ARE RARER ARERR AEE E RARER AAR ERARERREREE ERE ED 
T*TEST 1 TEST FOR NO BUS ERRORS 


FERRARA EERE RE EER EE RAE REET ETE E REE AA RARER RERERARRAR EERE ES 


TST1: SCOPE 
MOV #1,$TESTN 
MOV #1,S$TSTNM 
MOV #0, STMDAT 


3* MOV STMDAT,@GRSTAT ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRSTAT 
;* MOV STMDAT,@GRDAI ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 

38 MOV STMDAT,@GRDIO ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 

PPAR eee eRe eee A AAA T TATA TATA TAA e RAAT eee AAA eA ATE AAA E Eee 

s*TEST 2 TEST THAT OUTPUT REG. CAN HOLD 4-1 


FERRARA RARER ARERR EAE A EAA AAAAAA AKA ARATE RETR ERE AES 


TST2: SCOPE 


MOV #-1,$GDDAT ;LOAD EXPECTED 
MOV #-1,STMDAT ALL ONES TO REGISTER 
3* MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
:* MOV @GRDIO,$BDDAT ;/READ eeyice aa" GRDIO,PUT DATA IN SBDDAT. 
CMP peer’. SBDDAT ; COMPARE 
BEQ TST3 ::BR IF EQUAL 
ERROR 3 REG WILL NOT HOLD ONES 
pp teteeeenSeeeeeeeeterereeetetteeeeeteeeteeteeereeeretererenetens 
s«TEST 3 TEST THAT RESET CLEARS OUTPUT REG. 


SRAM RRA AAA AAAAAAAA AAA TAT Eee AAA KA AAKAAAeKKAK KAKA Kt eA Aree ete 


TST3: SCOPE 
SGDDAT 
MOV #-1,STMDAT 
7% MOV STMDAT,@GRDIO :/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 


SEQ 0028 


‘LPA DRI1-K LOGIC TEST 
‘CRLPFC.P11 «= 23-OCT-80 09:03 


003734 


1501 003750 
1502 003754 
1503 003756 


(2) 003760 
1506 003762 
1507 003770 


004016 
004024 
004026 


3-4 So 


004030 
004032 
004040 


aa 


— 


004066 
004074 
004076 


—_ —t = 


004114 


— 


004134 


004152 


— ss ss SY 


004154 
004156 


— a a «2 
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004737 


005737 
001401 
104003 


000004 
012737 
012737 


023737 
001401 
104003 


000004 
012737 
012737 


023737 
001401 
104003 


000004 
012737 
005037 


023737 


001360 


000004 
012737 
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022056 


001126 


001124 


001124 


004114 
001124 


001124 


001124 


004172 


001124 
001542 
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001124 
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TEST THAT RESET CLEARS OUTPUT REG. SEQ 0029 
JSR PC, SRESET ;SET DATA TO ALL ONES 
3t MOV aGRDIO,$BDDAT ;/READ DEVICE REG GRDIO,PUT DATA IN SBDDAT. 
TST SBDDAT 
BEQ TST4 ::BR IF EQUAL 
ERROR 3 ;REG FAILED TO CLEAR 
SERRA ERERA RARER AERA TETRA RAEA RARER AEA R AAA REAER RETR E 
s*TEST 4 TEST THAT OUTPUT REG. CAN HOLD #52525 
SEERA E TEER E REE E EEE EERE ERE AE ERE E RARER EAE A ERE 
TST4: SCOPE 
MOV #52525, $GDDAT ;LOAD EXPECTED VALUE 
MOV #52525, $TMDAT 
3* MOV STMDAT,A@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
3* MOV @GRDIO,$BDDAT ;/READ DEVICE REG GRDIO,PUT DATA IN $BDDAT. 
CMP SGDDAT,SBDDAT ; COMPARE 
BEQ TST5 3:BR IF EQUAL 
ERROR 3 sDATA NOT=52525 
SERRA ERR REE REE EE REE EEE ERRATA EERE EERE REAR 
s*TEST 5 TEST THAT OUTPUT REG. CAN HOLD #125252 
SERRA RARER ERE EERE REAR EEE REE EEE EERE AREER ERE RERR REE 
TSTS: SCOPE 
MOV #125252, $GDDAT ;LOAD EXPECTED VALUE 
MOV #125252, STMDAT 
3* MOV STMDAT,A@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
y* MOV @GRDIO,$BDDAT :/READ DEVICE REG GRDIO,PUT DATA IN $BDDAT. 
CMP SGDDAT,SBDDAT ; COMPARE 
BEQ TST6 3;BR IF EQUAL 
ERROR 3 :DATA NOT=125252 
SLR REAR ERATE TAREE EAE RE ARERR EE 
s*TEST 6 TEST THAT OUTPUT REG. CAN HOLD A COUNT PATTERN 
SERRA RRR REET E AERA TERETE AERA EAE AEA AERA A EAA AEE 
TST6: SCOPE 
MOV #2$,SLPERR ;LOAD SCOPE ERROR RETURN 
- CLR SGDDAT sCLEAR PATTERN 
3* MOV $GDDAT,@GRDIO ;/ PUT DATA FROM SGDDAT TO DEVICE REG GRDIO 
of MOV @GRD1O,$BDDAT ;/READ DEVICE REG GRDIO,PUT DATA IN $BDDAT. 
CMP SGDDAT, SBDDAT ; COMPARE 
BEQ 1$ 7;BR IF EQUAL 
ERROR 3 sOUTPUT REG.FAILED TO HOLD COUNT PATTERN 
1$: INC SGDDAT sUPDATE THE PATTERN 
BNE 23 ;TRY AGAIN 
PLR A AAR ARE AAA AEA A AAT T AA AAA AAR AAA AAA R AA AATAAAAA EAA A RAAT 
seTEST 7 FLOAT A 1 ACROSS THE OUTPUT REGISTER 


RIT e titi iiiiitti iii tiiti iii iitii iii D 
TST7: SCOPE 
MOV #1$,SLPERR :LOAD SCOPE ERROR RETURN 


‘--— 
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17 FLOAT A 1 ACROSS THE OUTPUT REGISTER 


MOV #B1T0,$GDDAT 
1$: MOV #0,STMDAT 
;* MOV STMDAT ,A@GROIO 
BIS SGDDAT,STMDAT 
;* MOV STMDAT ,@GRDIO 
id MOV @GRDIO,$BDDAT 
CMP SGDDAT ,SBDDAT 
BEQ 2$ 
ERROR 3 
2$: ASL SGDDAT 
BNE 1$ 


;LOAD EXPECTED VALUE 
;CLEAR OUTPUT 


;/ PUT DATA FROM S$TMDAT TO DEVICE REG GRDIO 
;SET THAT BIT 


;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
;/READ DEVICE REG GRDIO,PUT DATA IN S$BDDAT. 
;TEST RESULTS 


;BR IF EQUAL ? 


SHIFT EXPECTED DATA 
;BR UNTIL DONE 


SERRA RARER AEE AEE EEE AEE REE EERE RARER AREATAER RAR 


FLOAT A 0 ACROSS THE OUTPUT REGISTER 


SEERA RRR REAR EERE TERETE AEA RARER ERE RARER R ER ERRRAE RAE EE 


s*TEST 10 
TST10: SCOPE 
MOV #1$,S$LPERR 
MOV #BITO,$GDDAT 
1$ MOV #-1,STMDAT 
3 MOV STMDAT,@GRDIO 
BIC SGDDAT,STMDAT 
7* MOV STMDAT,@GRDIO 
:* MOV @GRDIO,$BDDAT 
COM SBDDAT 
CMP SGDDAT, $BDDAT 
BEQ 2$ 
ERROR 3 
2$: ASL 


SGDDAT 
1$ 


;LOAD SCOPE ERROR RETURN 
;LOAD EXPECTED VALUE 


;LOAD OUTPUT TO A ONE 


;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
CLEAR A BIT 


;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 


;/READ DEVICE REG GRDIO,PUT DATA IN $BDDAT. 
;COMPLEMENT IT 
;EQUAL ? 
3;BR IF EQUAL 


SHIFT LEFT 
;BRANCH UNTIL DONE 


SERRA AAR REET E AAA THERA AAA ARATE EKER AERA REAR AER AER EEE 


TEST FOR SLOW OUTPUT GATES WITH #125252 


SRR REAR AAAAAAAAAAAER AAA AAR AAA EAE ARAAAAR ARERR AA EE 


;*TEST 11 
TST11: SCOPE 
MOV #125252, $GDDAT 
3t MOV SGDDAT,aGRDIO 
3* MOV @GRDIO,STMDAT 
COM STMDAT 
3* MOV STMDAT,a@GRDIO 
3* MOV @GROIO,STMDAT 
COM STMDAT 
jt MOV STMDAT,a@GROIO 


;LOAD EXPECTED VALUE 
;/ PUT DATA FROM S$GDDAT TO DEVICE REG GRDIO 
;/READ DEVICE REG GRDIO,PUT DATA IN $STMDAT. 


;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
;/READ DEVICE REG GRDIU,PUT DATA IN STMDAT. 


;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 


SEQ 0030 


a Lee e . 
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4-13 
CRLPFC.P11 «23-OCT-80 09:03 TEST FOR SLOW OUTPUT GATES WITH #125252 SEQ 0031 
/ (2) 

(2) it MoV QGRDIO,$TMDAT  ;/READ DEVICE REG GRDIO,PUT DATA IN $TMDAT. 
) 004464 005137 001542 COM STMDAT 
@) te MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
(2) ie MOV AGRDIO,$TMDAT ;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 
) 004510 005137 001542 COM STMDAT 
@) :» MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
(2) ye MOV QGRDIO,$TMDAT  ;/READ DEVICE REG GRDIO,PUT DATA IN $TMDAT. 
() 004534 005137 001542 COM STMDAT 
(2) tt MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
(2) ie MOV QGRDIO,$TMDAT  ;/READ DEVICE REG GRDIO,PUT DATA IN $TMDAT. 
) 004560 005137 001542 COM $TMDAT 
2) ie MOV STMDAT,@GRDIO :/ PUT DATA FROM S$TMDAT TO DEVICE REG GRDIO- 
(2) it MOV QGRDIO,$TMDAT  ;/READ DEVICE REG GRDIO,PUT DATA IN $TMDAT. 
ah 004604 005137 001542 COM STMDAT 
(2) ie MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
(2) it MOV QGRDIO,STMDAT  ;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 
() 004630 005137 001542 COM STMDAT 

3 it MOV STMDAT,@GRDIO :/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
(1) :* MOV QGRDIO,$BDDAT  ;/READ DEVICE REG GRDIO,PUT DATA IN $BDDAT. 

1574 004654 023737 001124 001126 CMP $GDDAT .SBDDAT STEST REGISTER 

1575 004662 001401 BEQ TST12 :;BR IF CORRECT 

1576 004664 104003 ERROR 3 

1577 FERRER REAR EEA AAA E AAA AAA EAA RAAAAAAARA AAA E ES 
(3) SeTEST 12 TEST FOR SLOW OUTPUT GATES WITH #52525 
(3) SR ERA A EEA ARETE TERRA AAA AREER RARE AAA AA RARE EEE 
(2) 004666 000004 7$112: SCOPE 

1578 004670 012737 052525 001124 MOV #52525, $GDDAT :LOAD EXPECTED VALUE 

nS se MOV SGDDAT,@GRDIO ;/ PUT DATA FROM $GDDAT TO DEVICE REG GRDIO 
(2) it MOV QGRDIO,$TMDAT ;/READ DEVICE REG GRDIO,PUT DATA IN S$TMDAT. 
() 004716 005137 001542 COM STMDAT 
(2) it MOV STMDAT,@GRDIO ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
(2) it MOV QGRDIO,STMDAT ;/READ DEVICE REG GRDIO,PUT DATA IN $TMDAT. 
(1) 004742 005137 001542 COM STMDAT 
(2) it MOV STMDAT,@GRDIO :/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
(2) it MOV @GRDIO,STMDAT ;/READ DEVICE REG GRDIO,PUT DATA IN $TMDAT. 
() 004766 005137 001542 COM STMDAT 
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T12 TEST FOR SLOW OUTPUT GATES WITH #52525 


ad MOV 
z= MOV 
COM 
Maal MOV 
3* MOV 
COM 
;* MOV 
3* MOV 
COM 
* MOV 
3* MOV 
COM 
3* MOV 
5a MOV 
COM 
3* MOV 
= MOV 
CMP 
BEQ 
ERROR 


STMDAT ,AGROIO 
QGRDIO,$TMDAT 
STMDAT 


STMDAT ,AGRDIO 
QGROIO,STMDAT 
STMDAT 


STMDAT ,aGRDIO 
QGRDIO,STMDAT 
STMDAT 
STMDAT,aGRDIO 
@GRDIO,STMDAT 
STMDAT 


STMDAT ,A@GRDIO 
@GRDIO,$TMDAT 
STMDAT 


STMDAT ,aGRDIO 


@GRDIO,$BDDAT 
SGDDAT,S$BDDAT 
TST13 


3 


;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 


;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 


;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 


:/ PUT DATA FROM $STMDAT TO DEVICE REG GRDIO 
;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 


;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 


;/ PUT DATA FROM $STMDAT TO DEVICE REG GRDIO 
;/READ DEVICE REG GRDIO,PUT DATA IN S$BDDAT. 
; TEST PATTERN 


3;BR IF EQUAL 
;OUTPUT REGISTER IN ERROR 


TOR PESESESEESELECLER EER RESE REESE EERE RE RRR RRR RRR RRR RRR RRR RAR SDS DDO 


TEST GUTPUT DATA ACCEPT FLAG 


TPR SESESESEEESELRAEEERER RRR ERE RERR SRS RR RE RRA R RR RRR RRR SRR RRR SAAD DS | 


S*TEST 13 


#0, STMDAT 


STMDAT ,aGRDIO 
#-1,STMDAT 


STMDAT ,AGRDAI 
#B1T15,$GDDAT 


SGDDAT ,@GRSTAT 
@GRSTAT,SBDDAT 


SGODAT ,SBDDAT 
bl 


;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 


;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDAI 
;LOAD EXPECTED 


;/ PUT DATA FROM $GDDAT TO DEVICE REG GRSTAT 
;/READ DEVICE REG GRSTAT,PUT DATA IN S$BDDAT. 


;;BR IF SET 
ERROR, BIT 15 FAILED TO SET 


SPRAAeeeeKeaeeeeeeeeteeereettreteeKtketeteeeeeteteateereereerere 


TEST OUTPUT INTERRUPT ENABLE 


MRR RERAERAERAAAAAKATAAERAAAAEAEARAARAERAAERAREReAReeKAeAeeAeene 


15113: SCOPE 
MOV 
3 MOV 
MOV 
sa MOV 
MOV 
ie MOV 
3* MOV 
BIT 
BNE 
ERROR 
T*TEST 14 
TST14: SCOPE 
MOV 


#0,STMDAT 


:CLEAR STATUS 


SEQ 0032 


H 3 
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( 
CRLPFC.P11 23-OCT-80 09:03 TEST OUTPUT INTERRUPT ENABLE SEQ 0033 
1604 
(1) :* MOV STMDAT,@GRSTAT ;/ PUT DATA FROM S$TMDAT TO DEVICE REG GRSTAT 
| Mb + 005306 012737 040000 001124 MOV #B1T14,$GDDAT ;LOAD EXPECTED 
| 1407 7* MOV SGDDAT,@GRSTAT ;/ PUT DATA FROM $GDDAT TO DEVICE REG GRSTAT 
(1) ;* MOV Q@GRSTAT,$BDDAT ;/READ DEVICE REG GRSTAT,PUT DATA IN $BDDAT. 
1608 005334 033737 001124 001126 BIT $GDDAT, SBDDAT 
1609 005342 001001 BNE TST15 ;;BR IF SET 
+ a 005344 104001 ERROR 1 ERROR BIT 14 FAILED TO SET 
1612 LARA A eee ee eeeeeeKe Hee ee eeeee ere eeteeeeKKeeeeteteneeeeeeeeereee 
(3) s*TEST 15 TEST INPUT DATA READY FLAG 
(3) PRRRA AeA KeeRARAKH HEAT KATATE A Here eee Ke eet eeeteteeeTeteeeerteeee 
(2) 005346 000004 TST15: SCOPE 
ai 005350 012737 000200 001124 MOV #B1T7,$GDDAT ;LOAD EXPECTED 
1815 3* MOV SGDDAT,@GRSTAT ;/ PUT DATA FROM S$GDDAT TO DEVICE REG GRSTAT 
(1) ;* MOV QGRSTAT,SBDDAT ;/READ DEVICE REG GRSTAT,PUT DATA IN SBDDAT. 
1616 005376 023737 001124 001126 CMP SGDDAT,SBDDAT ; COMPARE 
1617 005404 001401 BEQ TST16 73;BR IF EQUAL 
it 005406 104001 ERROR 1 sERROR, BIT 7 FAILED TO SET 
1620 SRR e eRe AAA A HEAT AA HEAT ETA A eee eee ee eee eee eeeeeeeeerereneeeee 
(3) s*TEST 16 TEST INPUT INTERRUPT ENABLE 
(3) SERA RAR R AAA KA ATTA ATTRA ETE e eee eee K Ke eee eee Kee eeee eee ETAT 
(2) 005410 000004 TST16: SCOPE 
H+ 4 005412 012737 000000 001542 MOV #0,STMDAT CLEAR STATUS 
(1) 3* MOV STMDAT,@GRSTAT ;/ PUT DATA FROM $STMDAT TO DEVICE REG GRSTAT 
rer 005430 012737 000100 001124 MOV #B1T6,$GDDAT ;LOAD EXPECTED 
é 
1435 it MOV SGDDAT,@GRSTAT ;/ PUT DATA FROM S$GDDAT TO DEVICE REG GRSTAT 
(1) :* MOV @GRSTAT,$BDDAT ;/READ DEVICE REG GRSTAT,PUT DATA IN SBDDAT. 
1626 005456 023737 001124 001126 CMP SGDDAT,$BDDAT ; COMPARE 
1627 005464 001401 BEQ TST17 ;;BR IF EQUAL 
rete 005466 104001 ERROR 1 ERROR, BIT 6 FAILED TO SET 
1634 
+ 


WN 
oo 


64 PAA eeeeeeeeeeeeeeeeeeeeeeeeteeeeetedeneeeeeeetereeereeeeeeneee 
) s*TEST 17 TEST EXTERNAL TRANSFERS - CABLE MUST BE CONNECTED 
) sRRRAARReRe eA AAAAA ATTA ee TATA TAA HATA A AAA AAA A KATA Tete KAT AATE Te 
» 005470 000004 TST17: SCOPE 
1 005472 032777 002000 173440 BIT #B1T10,aSWR TEST SWITCH BIT 
2 005500 001402 BEQ 1$ ;BRANCH IF DOWN 
? pst 4's 000137 012146 1s JMP DRT21 BYPASS SOME TEST USING THE EXTERNAL CABLE 
4 005506 012737 000000 001542 MOV #0, STMDAT CLEAR OUTPUT REGISTER 
) 3* MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAI TO DEVICE REG GROIO 
+i 005524 012737 177777 001542 MOV #-1,STMDAT 
(2) it MOV STMDAT,@GRDAL ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAL 


a —~— — 
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000000 001542 


001532 0 
0 
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000000 001542 
177777 =—001542 
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000000 001542 


177777 =—001542 
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TEST EXTERNAL TRANSFERS = CABLE MUST BE CONNECTED SEQ 0034 
CLR SGDDAT CLEAR EXPECTED 
MOV #0, STMDAT ;LOAD THE OUTPUT 
i* MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
ad MOV @GRDAL,SBODAT ;/READ DEVICE REG GRDAI,PUT DATA IN $BDDAT. 
BIC ODDJMP ,SBDDAT ~~ 
CMP SGDDAT,SBDDAT ; COMPARE 
BEQ TST20 7;BR IF EQUAL 
ERROR 2 TERROR, INPUT DID NOT EQUAL THE OUTPUT REG. 
PRR eeeeeeeeeeeeeekee keke eee keeeeneeeeeeeeneeeteeeeneneetenenene 
i*TEST 20 TEST INPUT WITH #1 
SERRA eRe Ree TAHA TA TAT TATA Te Tee eA RTA Te ee eee AA eAeTeTAteeeeeee 
TST20: SCOPE 
MOV #0,STMDAT ;CLEAR OUTPUT REGISTER 
3* MOV STMDAT,A@GRDIO ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
MOV #-1,STMDAT 
s* MOV STMDAT, — ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
MOV #-1 SGDDAT ;LOAD EXPECTED 
BIC ODDJMP, SGDDAT ;MASK 
;@ MOV SGDDAT,@GRDIO ;/ PUT DATA FROM $GDDAT TO DEVICE REG GRDIO 
7* MOV Q@GRDAI,SBDDAT ;/READ DEVICE REG GRDAI,PUT DATA IN $BDDAT. 
BIC ODDJMP ,SBDDAT er SK 
CMP SGDDAT,SBDDAT OMPARE 
BEQ TST21 73:BR IF ESUAL 
ERROR 2 ERROR, INPUT DID NOT EQUAL THE OUTPUT 
PRA RR RARER ATA TA TAA TAA TATA TATA Ae Aet eee eee eee eee AAA ee AKT eee 
TSTEST 21 TEST INPUT WITH #52525 


PETTITTE TTI I ITT E TTS T TTT TTT tte e Ti 


TST21: SCOPE 


MOV #0,STMDAT ;CLEAR OUTPUT REGISTER 
7 MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
MOV #-1,STMDAT 
;* MOV STMDAT,@GRDAL ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDAI 
MOV #52525, $GDDAT LOAD EXPECTED 
BIC ODDJMP ,S$GDDAT 7 MASK 
3@ MOV SGDDAT,@GRDIO ;/ PUT DATA FROM $GDDAT TO DEVICE REG GRDIO 
3@ MOV Q@GRDAI,SBDDAT ;/READ eh 44 REG GRDAI,PUT DATA IN $BDDAT. 
BIC ODDJMP ,$BDDAT 7M 
CMP SGDDAT,SBDDAT he PARE 
BEQ TST22 ;:BR IF EQU 
ERROR 2 TERROR, INPUT DID NOT EQUAL OUTPUT 


POM RESESESAESESESSESERE SERRE SEREARASE SEES ESLER EERE RRR RR RRA RRA RADARS SD 


SeTEST 22 TEST INPUT WITH #125252 


PL eeeeaeaeeeatettereeteterereetrteteKeteeeeetaeReeeAteteteeeeeees 
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177777 


001534 
001542 


001124 001542 


i a + Nhe to 
T22 TEST INPUT WITH #125252 


1ST22: SCOPE 
MOV #0, $TMDAT :CLEAR OUTPUT REGISTER 
:* MOV STMDAT, aGRDIO :/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
MOV #-1,STMDAT 
3 MOV STMDAT,@GRDAL ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
MOV #125252, $GDDAT ;LOAD EXPECTED 
BIC ODDJMP, $GDDAT MASK 
i MOV SGDDAT,@GRDIO ;/ PUT DATA FROM S$GDDAT TO DEVICE REG GRDIO 
:* MOV QGRDAL,SBDDAT  ;/READ DEVICE REG GRDAI,PUT DATA IN $BDDAT. 
BIC ODDJMP ,$BDDAT MA 
CMP SGDDAT, $BDDAT ‘COMP ARE 
BEQ T5123 :;BR IF EQUAL 
ERROR 2 ERROR, INPUT DID NOT EQUAL OUTPUT 
pp Ree eeeee teen eeeeteeeeeereeeeteeeeeeeteeeeeteeeteeeeeteteneeeet 
SeTEST 23 TEST THE NEG. AND TRANSITION LATCHING INPUT DATA BITS 
SRR EREAE EERE AERA EEA ERA AEE AAA RERER EAA EEAARERHEEENES 
1$123: SCOPE 
TST ODD UMP :TEST IF ANY ODD JUMPERS 
BEQ TST24 :;BR IF NONE 
MOV #B1T12,$GDDAT :LOAD TEST BIT 
1$: BIT ODDJMP ,$GDDAT ‘TEST IF ODD JUMPER BIT 
BEQ 2$ :BR IF NOT 
BIT NOTLCH,$GDDAT “TEST IF LATCHING INPUT BIT 
BNE 2$ ‘BR IF NOT 
it MOV SGDDAT, @GRDIO :/ PUT DATA FROM $GDDAT TO DEVICE REG GRDIO 
MOV #-1,STMDAT =CLEAR INPUT 
st MOV STMDAT,@GRDAL ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
ie MOV QGRDIO,$TMDAT  ;/READ DEVICE REG GRDIO,PUT DATA IN $TMDAT. 
BIC SGDDAT.S$TMDAT 
st MOV STMDAT.@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
:* MOV QGRDAL,$BDDAT  ;/READ DEVICE RES GRDAI,PUT DATA IN $BDDAT. 
CMP $GDDAT .SBDDAT : COMPARE 
BEQ 3$ ‘BR if EQUAL 
ERROR 2 “ERROR, NEG. INPUT OR NEG. TRANSITION 
: INPUT BIT FAILED TO SET INPUT REGISTER 
3$ BI SGDDAT,MINSIN TEST IF NEG. INPUT BIT 
MOV #-1,STMDAT =CLEAR INPUT 
ie MOV STMDAT.@GRDAL ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
;* MOV QGRDIO,STMDAT  ;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 
BIS SGDDAT,STMDAT 
3 MOV STMDAT.@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 


3 
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SEQ 0035 
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‘LPA DRI1-K LOGIC TEST MD-11-CRLPF-C MAC E 4-18 
CRLPFC.P11 «=. 23-OCT-80 09:03 123. TEST THE NEG. AND TRANSITION LATCHING INPUT DATA BITS SEQ 0036 
1 * MOV — @GROAI.SBDDAT —; /READ DEVICE REG GROAI,PUT DATA IN SBDDAT. 
1718 006372 023737 001124 001126 CMP ss $GDDAT, SBDDAT ; COMPARE 
1719 006400 001401 BEQ = S BR IF EQUAL 
1720 006402 104002 ERROR 2 ERROR, POSITIVE INPUT TRANSITION 
72 [LOGIC FAILED TO SET INPUT REGISTER BIT 
1723 006404 006137 001124 28: ROL $GDDAT ; CHANGE DATA PATTERN 
1724 006410 103267 BCC 1$ BR IF MORE DAT 
1725 sistem taninmmpaedninennadenausienniccasiurceesucxentiietitt 
(3) TeTEST 26 FLOAT A 1 ACROSS NON=LATCHING INPUT BITS 
(3) + ReRRReR eee eeeee eRe eee eee ee eee eeeeeeKeeeeReeeneeereneeeeeeeeere 
(2) 006412 000004 $124: SCOPE 
1726 006414 012737 006442 001110 MOV = #2$, SLPERR ;LOAD ERROR SCOPE RETURN 
1728 006422 012737 000001 001526 MOV = #BITO, BRLEV2 ;LOAD EXPECTED 
1729 006430 013737 001506 001530 MOV =- NOTLCH, BRLEV3 GET NON-LATCH 
1730 006436 005137 001530 COM  —- BRLEV3 ; COMPLEMENT 
1731 006442 013737 001526 001124 2s: MOV —- BRLEV2, SGDDAT LOAD GOOD 
1732 006450 033737 001124 001532 BIT $GDDAT,ODDJMP TEST IF ODD JUMPER 
1733 006456 001055 BNE 1$ BYPASS IF ODD JUMPER 
1734 006460 033737 001124 001506 BIT $GDDAT,NOTLCH TEST FOR NON-LATCH 
1735 006466 001451 BEQ 1$ :BR IF LATCHING 
iH 
ait : MOV -—«sSGDDAT,aGRDIO-~—-;/ PUT _ DATA FROM SGDDAT TO DEVICE REG GRDIO 
qa) :* MOV @GRDAL.SBDDAT —; /READ DEVICE REG GRDAI PUT DATA IN SBDDAT. 
1739 006510 043737 001530 001126 BIC BRLEV3,$BDDAT ;MASK TO LATCH BITS 
1740 006516 023737 001124 001126 CMP  - $GDDAT . $BDDAT : COMPARE 
1741 006524 001401 BEQ ss BR IF EQUAL 
1742 006526 104002 ERROR 2 ; INPUT REGISTER IN ERROR 
1745 ZWAS CORRECT LATCH/NON-LATCH SUPPLIED ? 
Gq 
1745 ;SUB-TEST CLEAR THE OUTPUT BIT AND TEST THE INPUT DOES NOT LATCH 
1747 006530 38: 
(1) ;* MOV  @GRDIO,STMDAT =; /READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 
1748 006540 043737 001124 001542 BIC SGDDAT,STMDAT 
i, : MOV -—« STMDAT,@GRDIO ~—;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
(1) :* MOV @GRDAL.SBDDAT —; /READ DEVICE REG GRDAI .PUT DATA IN SBDDAT. 
1751 006566 043737 001530 001126 BIC ——- BRLEV3, SBDDAT MASK TO LATCH BITS 
1752 006574 005037 001124 CLR —- SGDDAT CLEAR EXPECTED 
1753 006600 033737 001526 001126 BIT  BRLEV2, $BDDAT TEST FOR BIT 
1754 006606 001401 BEQ 1$ ::BR IF CLEARED 
1755 006610 104002 ERROR 2 ; INPUT BIT LATCHED IN ERROR 
1736 ZWAS CORRECT LATCH/NON-LATCH SUPPLIED ? 
1758 006612 006337 001526 1$: ASL —s_ BRLEV2 ;CHANGE PATTERN 
1759 006616 001311 BNE 2$ :BR UNTIL DONE 
1761 PLeeeeeeeekeeeeeetedeeteeeeeee eter treet eeeteterteteerteereeeeeses 
(3) ZeTEST 25 FLOAT A 1 ACROSS LATCHING INPUT BITS 
(3) PL AAAe eee eeeeee eee eee ee eee eee tet eereeeeKeKKeteeeeeteeeateeeeeeese 


o-oo eee _ - _ -_——- - -_- — ——_- --- - —_-— —___— 
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CRLPFC.P11 25-0CT-80 09:03 T25 FLOAT A 1 ACROSS LATCHING INPUT BITS SEQ 0037 
| (2) 006620 000004 TST25: SCOPE 
| 1762 006622 012737 006672 001110 MOV #2$,$LPERR ;LOAD ERROR SCOPE RETURN 
1763 006630 012737 000001 001124 MOV #B1T0,$GDDAT ;LOAD EXPECTED VALUE 
\Tee 006636 012737 000000 001542 MOV #0, STMDAT ;CLEAR OUTPUT REG 
(1) s* MOV STMDAT, — ;/ PUT DATA FROM 8 te TO DEVICE REG GRDIO 
1768 006654 012737 177777 001542 MOV #-1,STMDAT CLEAR INP 
mS ;* MOV STMDAT,@GRDAI ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDAI 
1769 006672 033737 001124 001506 2$: BIT $GDDAT,NOTLCH ;TEST FOR NON-LATCHING 
1770 006700 001030 BNE 1$ ;BR IF NON-LATCH 
1771 006702 033737 001124 001532 BIT $GDDAT ,ODDIMP ;TEST IF ODD JUMPER 
1772 006710 001024 BNE 1$ ;BYPASS IF ODD JUMPER 


_- 
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T25 FLOAT A 1 ACROSS LATCHING INPUT BITS SEQ 0038 
3* MOV SGDDAT,@GRDIO ;/ PUT DATA FROM $GDDAT TO DEVICE REG GRDIO 
MOV #0,STMDAT ;CLEAR OUTPUT REGISTER 
3* MOV STMDAT,@GRDIO ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
:* MOV @GRDAI,SBDDAT ;/READ veviss A... GRDAI,PUT DATA IN $BDDAT. 
CMP $GDDAT,SBDDAT neta ARE 
BEQ 1$ 3;BR IF EQUAL 
ERROR 2 : INPUT REGISTER FAILED TO LATCH DATA 
1$: 
;* MOV Q@GRDAI,STMDAT ;/READ DEVICE REG GRDAI,PUT DATA IN S$TMDAT. 
BIS SGDDAT,STMDAT 
7* MOV STMDAT ,aGRDAI ;/ PUT DATA ang tip a TO DEVICE REG GRDAI 
ASL $SGDDAT ;CHANGE PATTERN 
BNE 2$ ‘BR UNTIL NDONE 
FERRARA EERE AERERERERE EERE REA E EAA AREA EEAAEEEAAEAAAAERAARR ANTE 
SSTEST 26 FLOAT A 0 ACROSS LATCHING INPUT BITS 


FRR A AREA E RAR EEEA AERA REA AE AERA ATER AA EAA ARE AAA AAR ER ERE 


18126: SCOPE 


MOV #2$,SLPERR 3;LOAD ERROR SCOPE RETURN 
MOV #B1TO,BRLEVS ;LOAD EXPECTED 
MOV #0,STMDAT ;CLEAR OUTPUT REGISTER 
3* MOV STMDAT,@GRDIO :/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
MOV #-1,STMDAT 
3° MOV STMDAT,@GRDAI :/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
2$: BIT BRLEV3,NOTLCH ;TEST FOR LATCHING 
BNE 1$ ‘BR IF NOT 
BIT SGDDAT ,ODDJMP ;TEST IF ODD JUMPER 
BNE 1$ ‘BYPASS IF ODD JUMPER BIT 
MOV #-1,SGDDAT ;LOAD 
BIC NOTLCH, $GDDAT 
BIC BRLEV3,$GDDAT ;MAKE BRLEV3 
3* MOV SGDDAT,aGRDIO :/ PUT DATA FROM S$GDDAT TO DEVICE REG GRDIO 
MOV #0, STMDAT ;CLEAR OUTPUT REGISTER 
st MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
3° MOV @GRDAL,$BDDAT 3; /READ ee fh a GRDAI,PUT DATA IN $BDDAT. 
CMP SGDCAT,SBDDAT ae ARE 
BEG 1$ 77BR IF EQu 
ERROR 2 cNPUT REGISTER FAILED TO LATCH DATA 
1$: 
20 MOV @GRDAI ,STMDAT ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 


—--——_—— 2 eS Ee EEE TT 


nN 3 . 
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rapes 9 | 23-0CT-80 09:03 FLOAT A 0 ACROSS LATCHING INPUT BITS SEQ 0039 
ie} 007212 053737 001530 001542 BIS BRLEV3,STMDAT 
(1) 3* MOV STMDAT ,@GRDAI 3/ PUT DATA FROM $STMDAT TO DEVICE REG GRDAI 
1813 007230 006337 001530 ASL BRLEV3 ; CHANGE PATTERN 
1814 007234 001315 BNE 2$ 3BR UNTIL DONE 
1815 pPRAAAeeA eee RAHA eA eee eee eee tered eeeKeeteeteeeeeneteeeeeeeeTet 
(3) *TEST 27 TEST FOR SLOW INPUT GATES WITH #125252 
(3) pA ARRRAAAAAAAAA Tee Te Tee ee eee reer eeneeeeeeeteteKeeeeeeeteeeeeeese 
rata 007236 000004 TST27: SCOPE 
1817 007240 012737 125252 001124 MOV #125252, $GDDAT ;LOAD EXPECTED 
1818 007246 043737 001506 001124 BIC NOTLCH,$GDDAT ; CONVERT 
1819 007254 043737 001532 001124 BIC ODDJMP ,SGDDAT MASK 
1820 007262 013700 001124 MOV $SGDDAT,RO ;LOAD PATTERN 
i 007266 012737 000000 001542 MOV #0,STMDAT ;CLEAR OUTPUT REGISTER 
(2) ze MOV STMDAT,a@GRDIO 3;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
53) 007304 012737 177777 001542 MOV #-1,STMDAT 
165% 7* MOV STMDAT ,aGRDAI 3/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
1833 
(2) 3* MOV RO,aGRDIO ;/ PUT DATA FROM RO TO DEVICE REG GRDIO 
(3 007332 010037 001542 MOV RO,STMDAT 
(2) 3* MOV STMDAT ,aGRDIO ;/ PUT DATA FROM STMDAT TO CEVICE REG GRDIO 
ah 007346 012737 000000 001542 MOV #0,STMDAT ;CLEAR OUTPUT REGISTER 
a 3* MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
(2) 3* MOV @GRDAI ,STMDAT ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
iat 007374 013701 001542 _ MOV STMDAT,R1 
é 
(2) 3* MOV STMDAT ,@GRDAI 3/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
hy 007410 005190 COM RO 
(2) ;* MOV RO,aGRDIO ;/ PUT DATA FROM RO TO DEVICE REG GRDIO 
Hh, 007422 010037 001542 MOV RO, STMDAT 
(2) 3* MOV STMDAT ,AGROIO 3/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
. 007436 012737 000000 001542 MOV #0, STMDAT ;CLEAR OUTPUT REGISTER 
to 34 MOV STMDAT,@GRDIO 3/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
(2) ;* MOV @GRDAI ,STMDAT ;/KEAD DEVICE REG GRDAI,PUT DATA IN STMDAT. 
HH 007464 013701 001542 MOV STMDAT,R1 
(2) 3¢ MOV STMDAT ,@GRDAIL 3/ PUT DATA FROM STMDAT TO DEVICE REG GRDAIL 
(>) 007500 005100 COM RO 
(2) 3e MOV RO,@GRDIO ;/ PUT DATA FROM RO TO DEVICE REG GROIO 
(>) 007512 010037 001542 MOV RO, STMDAT 
(2) 5* MOV STMDAT,@GRDIO 3/ PUT DATA FROM STMDAT TO DEVICE REG GRDIC 
- 007526 012737 000000 001542 MOV #0, STMDAT 7CLEAR OUTPUT REGISTER 
) 


—_——_——— 
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/CRLPFC.P11 
 @) 
| @) 
| «@) 
(1) 007554 
(2) 
(2) 
(1) 007570 
(2) 
(2) 
(1) 007602 
(2) 
(2) 
(2) 007616 
(3) 
(3) 
(2) 
(2) 
(1) 007644 
(2) 
(2) 
(1) 007660 
(2) 
(2) 
(1) 007672 
(2) 
(2) 
(2) 007706 
(3) 
(3) 
(2) 
(2) 
(1) 007734 
(2) 
(2) 
(1) 007750 
(2) 
(2) 
(1) 007762 
(2) 
(2) 
(2) 007776 
(3) 
(3) 
(2) 
(2) 
(1) 010024 
(2) 
(2) 
(1) 010040 
(2) 
(2) 
(1) 010052 
(2) 
(2) 
(2) 010066 
(3) 


013701 


005100 


010037 


012737 


013701 


005100 


010037 


012737 


013701 


005100 


010037 


012737 


013701 


005100 


010037 


012737 


23-0CT-80 99 


001542 


001542 


000000 001542 


001542 


001542 


000000 001542 


001542 


001542 


000000 001542 


001542 


001542 


000000 001542 


MACY11 92 
T2 T FOR SLOW INPUT GATES WITH # 


:* MOV 
s@ MOV 
MOV 
7* MOV 
COM 
inn MOV 
MOV 
MOV 
MOV 
‘= MOV 
:# MOV 
MOV 
7 MOV 
COM 
:* MOV 
MOV 
® MOV 
MOV 
3* MOV 
7* MOV 
MOV 
3* MOV 
COM 
:* MOV 
MOV 
MOV 
MOV 
se MOV 
3* MOV 
MOV 
3* MOV 
COM 
3¢ MOV 
MOV 
MOV 
MOV 


24-0¢1-80° 09: 34 PAGE 


STMDAT,@GRDIO 


aGRDAI, —— 
STMDAT,R1 


STMDAT ,@GRDAI 
RO 

RO,aGROIO 

RO, STMDAT 


Ay pi st sti 
#0,$ 


STMDAT ,@GRDIO 


@GRDAI ,STMDAT 
STHDAT,R1 


STMDAT ,AGRDAI 
RO 

RO,a@GRDIO 
RO,STMDAT 


STMDAT ,AGRDIO 
#0,STMDAT 


STMDAT ,aGRDIO 


@GRDAI ,STMDAT 
STMDAT,R1 


STMDAT ,AGRDAI 
RO 

RO,a@GRDIO 

RO, STMDAT 


STMDAT ,@GRDIO 
#0, STMDAT 


STMDAT ,@GRDIO 


aGRDAI, — 
STADAT,R1 


STMDAT ,@GRDAI 
RO 

RO, aGROIO 

RO, STMDAT 


Ay PS eta 
#0,S1M 


3/ PuT 
; /READ 


3/ PuT 


3/ PuT 


3/ PuT 


3/ PuT 
; /READ 


3/ PuT 


3/ PUT 


3/ Put 


3/ PUT 
; /READ 


3/ PuT 


3/ PUT 


3/ PUT 


3/ Put 
; /READ 


3/ PuT 


/ PUT 


:/ PuT 


25 Eby 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 

DATA FROM RO TO DEVICE REG GRDIO 

DATA FROM STMDAT TO DEVICE REG GRDIO 
;CLEAR OUTPUT REGISTER 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 

DATA FROM RO TO DEVICE REG GRDIO 

DATA FROM S$TMDAT TO DEVICE REG GRDIO 
CLEAR OUTPUT REGISTER 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 

DATA FROM RO TO DEVICE REG GRDIO 

DATA FROM STMDAT TO DEVICE REG GRDIO 
;CLEAR OUTPUT REGISTER 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 
DATA FROM RO TO DEVICE REG GROIO 


DATA FROM STMDAT TO DEVICE REG GRDIC 
CLEAR OUTPUT REGISTER 


SEQ 0040 
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CRLPFC. P11 23-0CT-80 09:03 127 TEST FOR SLOW INPUT GATES WITH #125252 SEQ 0041 

| ty ;t MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
(2) ;* MOV QGRDAL,STMDAT  ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
{3} 010114 013701 001542 MOV STMDAT,R1 
(2) 7 MOV STMDAT,@GRDAL ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
3 010130 005100 COM RO 
(2) 3* MOV RO,aGROIO ;/ PUT DATA FROM RO TO DEVICE REG GROIO 
tos 010142 010037 001542 MOV RO, STMDAT 
(2) ;* MOV STMDAT, Pe ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
4 f 010156 012737 000000 001542 MOV #0,$TMDAT ;CLEAR OUTPUT REGISTER 
(3) 3* MOV STMDAT,@GRDIO ;/ PUT DATA FROM S$TMDAT TO DEVICE REG GRDIO 
(2) :* MOV Q@GRDAL.STMDAT ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
3h, 010204 013701 001542 MOV STMDAT,R 
(2) :* MOV STMDAT,@GRDAIL ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDAI 
i 010220 005100 COM RO 
(2) ;* MOV RO,@.°D10 ;/ PUT DATA FROM RO TO DEVICE REG GRDIO 
bh 010232 010037 001542 MOV RO, STMDAT 
(2) i MOV STMDAT,@GRDIO ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
‘. 010246 012737 000000 001542 MOV #0, STMDAT ;CLEAR OUTPUT REGISTER 
ts i; MOV STMDAT,@GRDIO ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
(2) * MOV QGRDAI,STMDAT  ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
Be 010274 013701 001542 MOV STMDAT,R1 
é 
(2) i* MOV STMDAT,@GRDAI ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
3 010310 005100 COM RO 
(2) ;* MOV RO,a@GRDIO ;/ PUT DATA FROM RO TO DEVICE REG GRDIO 
a 010322 010037 001542 MOV RO, STMDAT 
(2) 7@ MOV STMDAT,A@GRDIO ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
it 010336 012737 000000 001542 MOV #0, STMDAT ;CLEAR OUTPUT REGISTER 
fo 3* MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
(2) :* MOV @GROAI,STMDAT ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
a 010364 013701 001542 MOV STMDAT,R1 
(2) 3¢ MOV STMDAT,@GRDAL ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
(3) 010400 005100 COM RO 
(2) 3 MOV RO, aGROIO ;/ PUT DATA FROM RO TO DEVICE REG GROIO 
oo 010412 010037 0015 2 MOV RO, STMDAT 
(2) i MOV Ay LF P+ :/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
te 010426 012737 000000 001542 MOV #0,$1R CLEAR OUTPUT REGISTER 


r- a -- = _- -- es - - —_— 


| RIA WY 
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‘CRLPFC.P11 =. 23-OCT-80 09 TEST FOR SLOW INPUT GATES WITH #125252 SEQ 0042 
| 3) i* MoV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 

(2) ;* MOV @GRDAL,STMDAT ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
()) 010454 013701 001542 MoV STMDAT,R1 
(2) i* MoV STMDAT,@GRDAI ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAL 

mS 010470 005100 COM = RO 

1835 010472 010137 001126 MoV R1,$BDDAT ;LOAD READ 

1836 010476 000240 NOP 

1837 010500 000240 NOP 

1838 010502 000240 NOP 

1839 010504 023737 001124 001126 CMP SGDDAT, SBDDAT ; COMPARE 

1840 010512 001401 BEQ TST30 BR IF EQUAL 

1841 010514 104002 ERROR 2 INPUT GATE SLOW 

1843 SRR RRA RARER ERATE ERATE TEETER AREA AREER EAA EEAAAREAAAERA ARE EE 
(3) T*TEST 30 TEST FOR SLOW INPUT GATES WITH #52525 
(3) SERRE AREER EEE E EAA A EEE AAR EERE REARERAARERAEREE KERR TE 

yz) 010516 000004 $130: SCOPE 

1845 010520 012737 052525 001124 MoV #52525, SGDDAT ;SETUP EXPECTED 

1846 010526 043737 001532 001124 BIC ODDJMP , SGDDAT ;MASK ODD JUMPER BITS 

1847 010534 043737 001506 001124 BIC NOTLCH,$GDDAT ; CONVERT 

1848 010542 013700 001124 MOV $GDDAT ,RO 

1849 010546 012737 000000 001542 MOV #0, STMDAT :CLEAR OUTPUT REGISTER 
(2) :* MoV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 

1850 010564 012737 177777 001542 MOV #-1,STMDAT 

me i* MoV STMDAT,@GRDAI ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 

1890 010602 010037 001542 MoV RO, STMDAT 
(2) i* MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
(2) 010616 012737 000000 001542 MOV #0, STMDAT CLEAR OUTPUT REGISTER 
3) i MoV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
(2) it MOV @GRDAL,STMDAT ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
(1) 010664 013701 001542 MOV STMDAT,R1 
(2) i# MOV ss STMDAT,@GRDAI_~—;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAL 
(1) 010660 005100 COM eR 
(1) 010662 010037 001542 MoV RO, STMDAT 
(2) ie Mov STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
(2) 010676 012737 000000 001542 MOV #0, STMDAT ;CLEAR OUTPUT REGISTER 
(3) it MOV STMDAT,@GRDIO —;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
(2) ;# MOV @GRDAL,STMDAT ; /READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
a) 010724 013701 001542 MOV STMDAT.R1 
(2) ;* MoV STMDAT,@GRDAL ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAL 
(1) 010740 005100 com = RO 
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TEST FOR SLOW INPUT GATES WITH #52525 


MOV 


MOV 
MOV 


MOV 


RO, STMDAT 


STMDAT ,AGRDIO 
#0, STMDAT 


STMDAT ,@GROIO 


QGRDAI ,STMDAT 
STMDAT,R1 


pees oaateny 
RO, STMDAT 


STMDAT ,AGRDIO 
#0,STMDAT 


STMDAT ,A@GRDIO 


QGRDAI ,STMDAT 
STMDAT,R1 


es 
RO, STMDAT 


STMDAT ,AGRDIO 
#0, STMDAT 


STMDAT,AaGRDIO 


QGRDAI ,STMDAT 
STMDAT,R1 


— 
RO,STMDAT 


STMDAT ,AaGRDIO 
#0, $TMDAT 


STMDAT,aGRDIO 


@GRDAI ,STMOAT 
STMDAT,R1 


en 
RO, STMDAT 


STMDAT ,A@GRDIO 
#0, STMDAT 


STMDAT ,aGROIO 
@GRDAI ,STMDAT 


:/ Put 


3/ PuT 
; /READ 


;/ Put 


3/ PuT 


3/ Put 
; /READ 


3/ PuT 


3/ PuT 


3/ PuT 
; /READ 


3/ Put 


:/ PuT 


3/ Put 
7 /READ 


:/ PuT 


3/ PuT 


;/ PuT 
; /READ 


DATA FROM STMDAT TO DEVICE REG GRDIO 
;CLEAR OUTPUT REGISTER 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 


DATA FROM STMDAT TO DEVICE REG GRDIO 
;CLEAR OUTPUT REGISTER 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 


DATA FROM S$TMDAT TO DEVICE REG GRDIO 
;CLEAR OUTPUT REGISTER 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN $STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 


DATA FROM STMDAT TO DEVICE REG GRDIO 
;CLEAR OUTPUT REGISTER 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 


DATA FROM STMDAT TO DEVICE REG GRDIO 
;CLEAR OUTPUT REGISTER 


DATA FROM STMDAT TO DEVICE REG GRDIC 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


SEQ 0043 


BPEL PR LOBE PR LPR PRP LP LK LL LL ee ee fe Oe me lm fm, Fe fm im, 
POD @ PIN | PONIWWNPI IID  @ PP @ MN WWAIPI NPY 2 SNE 
we we ws ewe we ew ae we a ae es ae ae a ee a we a ee Se wa we we a 


PR PR PRP Pe Oe Fm fm my fm 


oo 
SPSS AA SAD Rmrnn—oNn oN 
Pwneuwwwuwvuvvuvuvvvvuvvuvuvvevve 


—»— — 


011304 


011364 


011400 
011402 


011416 


011604 


011620 


011622 
011626 
011630 
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005100 
010037 


012737 


013701 


005100 
010037 


012737 


013701 


005100 
010037 


012737 


013701 


005100 
010037 


012737 


013701 


005100 


010137 
000240 
000240 
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001542 


001542 


000000 


001542 


001542 


000000 


001542 


001542 


000000 


001542 


001542 


000000 


001542 


001126 


001542 


001542 


001542 


001542 
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TEST FOR SLOW INPUT GATES WITH 153595 


MOV 


STMDAT,R1 
se 
RO, STMDAT 


STMDAT ,AGRDIO 
#0,STMDAT 


STMDAT ,AGROIO 


QGRDAIL ,STMDAT 
STMDAT,R1 


 pperpemes- 
RO,STMDAT 


STMDAT ,AGRDIO 
#0,$TMDAT 


STMDAT,aGRDIO 


@GRDAL,STMDAT 
STMDAT,R 


ss 
RO, STMDAT 


STMDAT ,AGRDIO 
#0,STMDAT 


STMDAT,@GRDIO 


@GRDAI ,STMDAT 
STMDAT,R1 


a 
RO,STMDAT 


STMDAT ,@GRDIO 
#0, STMDAT 


STMDAT ,@GRDIO 


QGRDAI ,STMDAT 
STMDAT,R1 


STMDAT ,AGRDAI 
RO 


R1,$BDDAT 


;/ PuT 


3/ PuT 


;/ PUT 
; /READ 


3/ Put 


3/ PuT 


3/ Put 
; /READ 


3/ PuT 


3/ PuT 


3/ PuT 
3; /READ 


3/ Put 


3/ PUT 


3/ Put 
3 /READ 


3/ Put 


DATA FROM $TMDAT TO DEVICE REG GRDAI 


DATA FROM STMDAT TO DEVICE REG GRDIO 
CLEAR OUTPUT REGISTER 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM $TMDAT TO DEVICE REG GRDAI 


DATA FROM STMDAT TO DEVICE REG GRDIO 
;CLEAR OUTPUT REGISTER 


DATA FROM $STMDAT TO DEV®CE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN $TMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 


DATA FROM $TMDAT TO DEVICE REG GRDIO 
;CLEAR OUTPUT REGISTER 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 


DATA FROM STMDAT TO DEVICE REG GRDIO 
;CLEAR OUTPUT REGISTER 


DATA FROM STMDAT TO DEVICE REG GRDIO 
DEVICE REG GRDAI,PUT DATA IN S$STMDAT. 


DATA FROM STMDAT TO DEVICE REG GRDAI 


;LOAD VALUE READ 
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CRLPFC.P11 23-0CT-80 09:03 130 TEST FOR SLOW INPUT GATES WITH #52525 SEQ 0045 
1865 011632 000240 NOP 
1866 011634 023737 001124 001126 CMP SGDDAT ,SBDDAT ; COMPARE 
1867 011642 001401 BEQ TST31 37;BR IF EQUAL 
1868 011644 104002 ERROR 2 
1869 PLA AH eee eee eee eeHeHHHE LETH TAK eee eeTeTAAeTATeTeeee eee eT eTere 
(3) s*TEST 31 TEST THAT RESET CLEARS INPUT REGISTER BITS 
(3) REE RERAEHETEHAETETHAATHAAE AKER KARA KAAAAKAA KAKA eee etre Tees 
(2) 011646 000004 18131: SCOPE 
“at 011650 012737 000000 001542 MOV #0,STMDAT ;CLEAR OUTPUT REGISTER 
(2) 3 MOV STMDAT, + eae ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
as 011666 012737 177777 001542 MOV #-1,STMDAT 
(2) :* MOV STMDAT,@GRCOAL ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 
+ $44 011704 012737 177777 001542 MOV #-1,STMDAT ;LOAD OUTPUT 
(1) 3* MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
1874 011722 005037 001124 CLR SGDDAT ;LOAD EXPECTED 
MS 011726 004737 022056 JSR PC, SRESET 
(1) 7 MOV Q@GRDAI,SBDDAT ;/READ DEVICE REG GRDAI,PUT DATA IN S$BDDAT. 
1877 011742 043737 001532 001126 BIC ODDJMP ,$BDDAT ;MASK ODD JUMPERS 
1878 011750 005737 001126 TST SBDDAT 
1879 011754 001401 BEQ TST32 ::BR IF ALL BITS CLEARED 
‘at 011756 104002 ERROR 2 ; INPUT REG. FAILED TO CLEAR UPON RESET INST. 
1882 PLeeeeeeeeeeeeeAee deed teeter eeeeeeereeeKeeeAeeerereneeeteeerest 
(3) s*TEST 32 TEST THAT WHEN OUTPUTTING THE INPUT DATA READY FLAG SETS 
(3) PURAAe Ree eeHAAee Hee Herter ee eeeeeeeKteeReKeeeKeKeeeeetenrerete 
(2) 011760 000004 TST32: SCOPE 
1883 011762 012737 000200 001124 MOV #B1T7,$GDDAT ;LOAD EXPECTED 
ia 011770 012737 000000 001542 MOV #0, STMDAT 
mS i* MOV STMDAT,@GRSTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG GRSTAT 
(1) ;* MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
Hy of 012016 022727 000000 000000 CMP #0,#0 ;DELAY 
(1) ;¢ MOV Q@GRSTAT,SBDDAT ;/READ miss a... GRSTAT,PUT DATA IN S$BDDAT. 
1889 012034 023737 001124 001126 cMP SGDDAT ,SBDDAT ; COMPARE 
1890 012042 001401 BEQ TS133 ::BR IF EQUAL 
H +4} 012044 104001 ERROR 1 INPUT DATA READY FLAG FAILED TO SET 
oe TEST THAT WHEN THE INPUT BUFFER IS READ THE OUTPUT FLAG IS SET 
1895 peeeeeeeeeeeeteeeeeteteteeeretreeeeeteeteeteeeeererteeeeeeeeeete 
(3) SaTEST 33 TEST THAT WHEN THE INPUT BUFFER IS READ THE OUTPUT FLAG IS SET 
(3) spe eeeeeeeeneeeeetintererereereeteeeeereeeeeetenerereerenteeerere 
(2) 012046 000004 TST33: SCOPE 
1896 012050 012737 100000 001124 MOV #B1T15,SGDDAT ;LOAD EXPECTED 
H +44 012056 012737 000000 001542 MOV #0, STMDAT 
RAL it MOV STMDAT,@GRSTAT ;/ PUT DATA FROM STMDAI TO DEVICE REG GRSTAT 


(1) :¢ MOV STMDAT,@GRDIO ;/ PUT DATA FROM S$STMDAT TO DEVICE REG GROIO 
1900 012104 022727 000000 000000 CMP #0,#0 


H & 
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1901 
(1) :* MOV QGRDAL,STMDAT  ;/READ DEVICE REG GRDAI,PUT DATA IN STMDAT. 
1308 012122 013700 001542 MOV STMDAT,RO 
(1) it MOV QGRSTAT, SBDDAT ;/READ DEVICE REG GRSTAT,PUT DATA IN $BDDAT. 
1904 012136 005737 001126 TST SBDDAT 
1905 012142 100401 BM] TST34 ::BR IF SET 
1906 012144 104001 ERROR 1 s INPUT DATA READY FLAG FAILED TO SET 
1908 
1909 012146 DRT21: 
(4) FERRARA RARER EATER EET EEA AAT EERE EERE AAARAAAAAAERRRERARAARA ARATE 
(3) seTEST 34 TEST THAT INTERRUPT INPUT BITS SET INPUT READY FLAG 
(3) FERRARA RAA RARER EERE EERE EERE AETHER RARER REAARAAAEAAAAERA AKER EREES 
(2) 012146 000004 TST34: SCOPE 
1910 012150 032777 002000 166762 BIT #B1T10,aSwR :TEST CABLE SWITCH 
bad 012156 001172 BNE TST35 ::BYPASS IF NO I/O CABLE 
1913 012160 012737 012174 001110 MOV #1$,SLPERR :LOAD ERROR SCOPE RETURN 
1914 012166 012737 000001 001530 MOV #B1TO,BRLEV3 :LOAD INTERRUPT BIT 
1915 012174 005037 001126 1$: CLR $BDDAT CLEAR BAD DATA 
sie 012200 012737 000200 001124 MOV #B1T7,$GDDAT LOAD GOOD DATA 
t 
1918 012206 033737 001530 001510 BIT BRLEV3, INTBIT sTEST IF THIS BIT WILL INTERRUPT 
1919 012214 001550 BEQ 3$ ::NO TRY NEXT BIT 
1920 012216 012737 000000 001542 MOV #0,STMDAT CLEAR OUTPUT REGISTER 
(2) :* MOV STMDAT,@GRDIO ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIC 
os 5 012234 012737 177777 001542 MOV #-1,$TMDAT 
(2) :* MOV STMDAT,@GRDAI  ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDAI 
1928 012252 012737 000000 001542 MOV #0,STMDAT :CLEAR STATUS 
d 
ai pe MOV STMDAT,@GRSTAT ;/ PUT DATA FROM S$TMDAT TO DEVICE REG GRSTAT 
(1) 38 MOV QGRDIO,$TMDAT ;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 
$4 012300 053737 001530 001542 BIS BRLEV3,S$TMDAT 
mil pe MOV STMDAT,@GRDIO ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
(1) pt MOV QGRDIO,$TMDAT ;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 
1928 012326 043737 001530 001542 BIC BRLEV3,STMDAT 
ai pe MOV STMDAT,@GRDIO ;/ PUT DATA FROM S$TMDAT TO DEVICE REG GRDIO 
(1) pe MOV QGROIO,STMDAT ;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 
4 012354 053737 001530 001542 BIS BRLEV3,STMDAT 
ou :* MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
+44 012372 012737 000000 001542 MOV #0, STMDAT CLEAR STATUS 
ait ie MOV STMDAT,AGRSTAT ;:/ PUT DATA FROM STMDAI TO DEVICE REG GRSTAT 
(1) :t MOV STMDAT,@GRSTAT ;/ PUT DATA FROM STMDAT TO DEVICE REG GRSTAT 
1937 :1F INTERRUPT INPUT SWITCH IS ON 
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QGRSTAT,STMDAT 
STMDAT 


2$ 
10 


QGRDIO,$TMDAT 
BRLEV3,STMDAT 


STMDAT ,@GRDIO 


@GRDAI ,STMDAT 
BRLEV3,STMDAT 


STMDAT ,AGRDAI 
SGDDAT 

@GRSTAT 
AGRSTAT,$BDDAT 
3$ 

1 

BRLEV3 

1$ 


;/READ DEVICE REG GRSTAT,PUT DATA IN STMDAT. 
;;BR IF SET 


+ INPUT INTERRUPT BIT FAILED - SET INPUT READY 
? DID OPERATOR GIVE CORREC 
‘INPUT INTERRUPT BITS ?? 


;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 


3/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIC 
;/READ DEVICE REG GRDAI,PUT DATA IN $TMDAT. 


3;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDAI 
CLEAR EXPECTED 
;CLEAR STATUS 
;READ STATUS 
;;BR IF CLEARED 
; INPUT READY FAILED TO CLEAR 


CHANGE BIT 
;BR IF NOT DONE 


SRA A REAR AAA E AAA A ATE A ER ARERARAARAARAEAARAARAERANRARE RATE 


s*TEST 35 


TST35: 


1$: 


TEST THAT NON-INTERRUPT INPUT BITS DO NOT SET INPUT READY FLAG 


FERRARA AAA AREE AREER AA AEA AAA EA AAR AERAAARAAKRKAKAKARAKEKE AS 


#B1T10,aSWk 
TST36 
#1$,SLPERR 
#B1T0,BRLEV3 
#200,$BDDAT 
SGDDAT 
BRLEV3,INTBIT 
#0, STMDAT 


STMDAT, —— 
#-1,STMDAT 


Ay pF + ata 
#0,$1M 


STMDAT ,@GRSTAT 


@GRDIO,STMDAT 
BRLEV3,STMDAT 


STMDAT ,AaGRDIO 
BRLEVS,STMDAT 


;TEST CABLE SWITCH 
:;BYPASS IF NO 1/0 CABLE 


;LOAD ERROR SCOPE RETURN 

;LOAD NON-INTERRUPT BIT 

;LOAD BAD DATA 

;CLEAR GOOD DATA 

;TEST IF THIS BIT WILL INTERRUPT 
::YES SKIP AND TRY NEXT BIT 

;CLEAR OUTPUT REGISTER 
;/ PUT DATA FROM STMDAT TC DEVICE REG GRDIO 
;/ PUT DATA FROM STMDAT TO DEVICE REG GRDAI 

CLEAR STATUS 
;/ PUT DATA FROM STMDAT TO DEVICE REG GRSTAT 
;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 


/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
CLEAR OUTPUT 


SEQ 0047 
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135 TEST THAT NON-INTERRUPT INPUT BITS DO NOT SET INPUT READY FLAG 
;* MOV STMDAT,@GRDIO ;/ PUT DATA FROM S$TMDAT TO DEVICE REG GRDIO 
:* MOV QGRDIO,STMDAT  ;/READ DEVICE REG GRDIO,PUT DATA IN STMDAT. 
BIS BRLEV3,STMDAT 
al MOV STMDAT,@GRDIO ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
:* MOV STMDAT,A@GRDIO ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 
MOV #0, STMDAT ;CLEAR FLAG FROM DATA READY 
3* MOV STMDAT,@ ;/ PUT DATA FROM STMDAT TO DEVICE REG 
;SHOULD REMAIN SET VIA DIRECT SET SIDE 
7* MOV QGRSTAT,STMDAT ;/READ DEVICE REG GRSTAT,PUT DATA IN STMDAT. 
TSTB STMDAT 
BPL 3$ 3;BR IF CLEAR 
ERROR 11 7 INPUT NON-INTERRUPT BIT SET INPUT READY 
:2? DID OPERATOR GIVE CORRECT 
SINPUT INTERRUPT BITS ?? 
3$: ASL BRLEV3 ;CHANGE BIT 
BNE 1$ ;BR IF NOT DONE 
TTITITT TIT T ITT TTT TTT TTT itt iti ttt titi ct tii 
SeTEST 36 DETERMINE IF MORE DR11-K'S ARE TO BE TESTED 
TPP PSEEASESAE SESE SES EERE ERE EES E REE EEE SERRE RR RRR RRR RR ARERR ARRAS S OS | 
15136: SCOPE 
BYPASS: TST NBEXT ;TEST IF ANY 
BEQ 1$ ;BR IF NONE 
BIT #SW12,aSWR TEST BIT12 OF SWR 
BNE BYPAS1 7 INHIBIT TESTING NEXT DR11-K 
SUB #10, DRADD UPDATE DEVICE ADDRESS 
ADD #10,DRIV UPDATE DEVICE VECTOR 
DEC NBEXT ;ANOTHER ONE ? 
BR BYPAS1 ;BR IF ANOTHER 
1$: MOV BASEBA,DRADD ;RELOAD ADDRESS 
MOV BASEIV,DRIV sRELOAD VECTOR 
MOV NMBEXT ,NBEXT ;RELOAD NUMBER 
JMP SEOP ; DONE 
BYPAS1: MOV #-1,R0 
JMP RBEG2 TEST ANOTHER UNIT 


-SBTTL END OF PASS ROUTINE 


peeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeee 
INCREMENT THE PASS NUMBER (S$PASS) 

[INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

p*TYPE “END PASS #XXXXX'’ (WHERE XXXXX 1S A DECIMAL NUMBER) 

:tIF THERES A gp GO TO IT 

:elF THERE ISN'T JUMP TO BYPAS1 


SEOP: 
SCOPE 
CLR STSTNM 7;ZERO THE TEST NUMBER 
INC SPASS >; INCREMENT THE PASS NUMBER 


SEQ 0048 


i? 
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‘CRLPFC.P11 23-OCT-80 09:03 END OF PASS ROUTINE SEQ 0049 
| (1): 013146 «042737 100000 001174 BIC #100000,$PASS ;;DON'T ALLOW A NEG. NUMBER 
/ (1) 013154 005327 DEC (PC)+ +: LOOP? 
(1) 013156 000001 SEOPCT: .WORD 
(1) 013160 003022 BGT $DOAGN YES 
(1) 013162 012737 MOV (PC)+,a(PC)*  ::RESTORE COUNTER 
(1) 013164 000001 SENDCT: .WORD 1 
(1) 013166 013156 SEOPCT 
(1) 013170 104401 013235 TYPE SENDMG :TYPE "END PASS #" 
(2) 013174 013746 001174 MOV $PASS,-(SP) SAVE SPASS FOR TYPEOUT 
(2) 013200 104405 TYPDS ::G0 TYPE=-DECIMAL ASCII WITH SIGN 
(1) 013202 104401 013232 TYPE  ,$ENULL ::TYPE A NULL CHARACTER 
(1) 013206 013700 000042 $GET42: MOV a#42,R0 ::GET MONITOR ADDRESS 
(1) 013212 001405 BEQ $DOAGN ::BRANCH IF NO MONITOR 
(1) 013214 000005 RESET “CLEAR THE WORLD 
(1) 013216 004710 SENDAD: JSR PC, (RO) ::G0 TO MONITOR 
(1) 013220 000240 NOP >:SAVE ROOM 
(1) 013222 000240 NOP : FOR 
(1) 013224 000240 NOP ssACT11 
(1) 013226 SDOAGN: 
(1) 013226 000137 JMP ac(Pc)+¢ 3; ;RETURN 
(1) 013230 013124 SRTNAD: .WORD BYPAS1 
(1) 013232 377 377 000 SENULL: .BYTE -1,-1,0 ;;NULL CHARACTER STRING 
(1) 013235 015 042412 042116 SENDMG: .ASCIZ <15><i2>/END PASS #/ 
(1) 013242 050040 051501 020123 
(1) 013250 000043 
2013 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
(2) SERRA AAR RAARAAAEE AAA AAA RETA AAA AAA AEA A AERA AEARAAAEAERAAREREAA AE 
(1) t*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
(1) ‘*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1) S*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) S*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
a) [*REPLACED WITH SPACES. 
(1) s*CALL: 
(1) yt MOV NUM,-(SP) :;PUT THE BINARY NUMBER ON THE STACK 
(1) ie TYPDS +:G0 TO THE ROUTINE 
(1) 013252 STYPDS: 
(3) 013252 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 013254 010146 MOV R1.-(SP) ::PUSH R1 ON STACK 
(3) 013256 010246 MOV R2,-(SP) >:PUSH R2 ON STACK 
(3) 013260 010346 MOV R3,-(SP) *:PUSH R3 ON STACK 
(3) 013262 010546 MOV R5.=(SP) >:PUSH R5 ON STACK 
(1) 013264 012746 020200 MOV #26200,-(SP) | ::SET BLANK SWITCH AND SIGN 
(1) 013270 016605 000020 MOV 20(SP) .R5 ::GET THE INPUT NUMBER 
(1) 013274 100004 BPL 1$ ::BR IF INPUT IS POS. 
(1) 013276 005405 NEG RS ::MAKE THE BINARY NUMBER POS. 
(1) 013300 112766 000055 000001 MOVB 3s #'=, 1 SP) SIMAKE THE ASCII NUMBER NEG. 
(1) 013306 005000 1$: CLR RO :3ZERO THE CONSTANTS INDEX 
(1) 013310 012703 013466 MOV #SDBLK,R3 ::SETUP THE OUTPUT POINTER 
(1) 013314 112723 000040 MOVE o# _, (R3)4 ::SET THE FIRST CHARACTER TO A BLANK 
(1) 013320 005002 2$: CLR R ‘:CLEAR THE BCD NUMBER 
(1) 013322 016001 013456 MOV $DTBL(RO).R1  ::GET THE CONSTANT 
(1) 013326 160105 3$: SUB R1,R5 ;iFORM THIS BCD DIGIT 
(1) 013330 002402 BLT 4$ “BR IF DONE 
(1) 013332 005202 INC R2 >: INCREASE THE BCD DIGIT BY 1 


ne 


r — ——EE —e - = —_ -_ 
| 
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CRLPF CPN 23-0CT-80 09:0 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0050 
/ (1) 013334 000774 BR 3$ 
| C1) 013336 060105 4$: ADD R1,R5 :;ADD BACK THE CONSTANT 
| (1) 013340 005702 TST R2 ::CHECK IF BCD DIGIT=0 
| (1) 013342 001002 BNE 5$ +: FALL THROUGH IF 0 
(1) 013344 105716 TSTB = (SP) i#STILL DOING LEADING 0'S? 
(1) 013346 100407 BMI 7$ ::BR IF YES 
(1) 013350 106316 5$: ASLB = (SP?) ::MSD? 
(1) 013352 103003 BCC 6$ ::BR IF NO 
(1) 0133546 116663 000001 177777 MOVB  1(SP),-1(R3) ::YES=-SET THE SIGN 
(1) 013362 052702 000060 6$: BIS #'0,R2 ::MAKE THE BCD DIGIT ASCII 
(1) 013366 052702 000040 7$: BIS #' {RQ ‘:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
(1) 013372 110223 MOVB —R2, (R3)+ ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 013374 005720 TST (RO) + +: JUST INCREMENT ING 
(1) 013376 020027 000010 CMP RO, #10 *:CHECK THE TABLE INDEX 
(1) 013402 002746 BLT 2$ *:G0 DO THE NEXT DIGIT 
(1) 013406 003002 BGT 8$ 60 TO EXIT 
(1) 013406 010502 MOV R5,R2 s3GET I HE LSD 
(1) 013410 000764 BR 6$ :60 CHANGE TO ASCI! 
(1) 013412 105726 8S: TSTB 3s (SP) + S THE sts THE FIRST NON-ZERO? 
(1) 013414 100003 BPL 9$ 7, IF 
(1) 013416 116663 177777 177776 MOVB = = 1 (SP) ,=2(R3) Soe coset THE SIGN FOR TYPING 
(1) 013424 105013 9$: CLRB ss (R3) ::SET THE TERMINATOR 
(3) 013426 012605 MOV (SP)+,R5 ::POP STACK INTO R5 
(3) 013430 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
(3) 013432 012602 MOV (SP)+.R2 ::POP STACK INTO R2 
(3) 013434 012601 MOV (SP)+.R1 ::POP STACK INTO RI 
(3) 013436 012600 MOV (SP) +_RO ; ;POP STACK INTO RO 
(1) 013440 104401 013466 TYPE $DBLK NOW TYPE THE NUMBER 
(1) 013444 016666 000002 000004 MOV b(SP) ,4(SP) ::ADJUST THE STACK 
(1) 013452 012616 MOV (SP)+, (SP) 
(1) 013454 000002 RTI : RETURN TO USER 
(1) 013456 023420 $DTBL: 10000. 
(1) 013460 001750 1000. 
(1) 013462 000144 100 
(1) 013464 000012 10. 
> ) 013466 000004 SDBLK: .BLKW 4 
2015 ; MISC. EXTERNAL LOGIC TEST 
2016 013476 012706 001100 EXTTST: MOV #STACK,SP 
2017 013502 004737 003360 JSR PC, SETADD :SET UP ADDRESS AND VECTOR 
2018 013506 012737 040000 013656 28: MOV #BIT14,EXTCNT [LOAD COUN 
Cv) 013514 012737 000000 001542 MOV #0,STMDAT :CLEAR OUTPUT REGISTER 
(2) * MOV STMDAT.aGRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
2020 013532 012737 125252 001542 MOV #125252, STMDAT :LOAD OUTPUT 
a) :* MOV STMDAT,@GRDIO ;/ PUT DATA FROM STMDAT TO DEVICE REG GRDIO 
ott 3e MOV QGRDAIL,EXTTMP ;/READ DEVICE REG GRDAI,PUT DATA IN EXTTMP. 
(1) :t MOV EXTTMP,a@GRDAL ;/ PUT DATA FROM EXTIMP TO DEVICE REG GRDAI 
2024 013570 012737 000000 001542 MOV #0,STMDAT =CLEAR OUTPUT REGISTER 
(2) t MOV STMDAT,@GRDIO ;/ PUT DATA FROM STRAT TO DEVICE REG GRDIO 


2025 013606 012737 052525 001542 MOV #52525,STMDAT ;LOAD OUT 
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2026 

262? ;* MOV STMDAT,@GRDIO ;/ PUT DATA FROM $TMDAT TO DEVICE REG GRDIO 

2628 ;* MOV QGRDAL,EXTTMP ;/READ DEVICE REG GRDAI,PUT DATA IN EXTTMP. 
(1) :* MOV EXTTMP,@GRDAIL ;/ PUT DATA FROM EXTTMP TO DEVICE REG GRDAI 

2029 013644 005337 013656 DEC EXTCNT ;FINISHED COUNT 

2030 013650 001321 BNE 1$ 

soa) 013652 000715 BR 2$ ; LOOP 

2033 013654 000000 EXTTMP: 0 

2034 013656 000000 EXTCNT: 0 

2035 

2036 


2037 oh eee 005015 052502 020 BUSTRP: .ASCIZ <15><12>/BUS TIiME-OUT ON SELECTED DR11K/ 


000 
2038 013721 123. 052105 05 SWNLB: .ASCIZ /SET SWITCH REGISTER BITS EQUAL TO THE NON-LATCHING INPUT BITS/ 


1 

0 5 

2039 014017 123 052105 aoys SWINTB: .ASCIZ /SET SWITCH REGISTER BiTS EQUAL TO THE INTERRUPTING INPUT BITS/ 
1 


& 
014076 


FOo-uo Fwuvinns 
So 
uw 
™m 
o 
r~ 
oO 


2040 052105 051440 SWPOSB: .ASCIZ /SET SWITCH REGISTER BITS 15-12 EQUAL TO POSITIVE INPUT BITS/ 
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2041 SWIRAB: .ASCIZ /SET SWITCH REGISTER BITS 15-12 EQUAL TO TRANSITION INPUT BITS/ 
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| 014232 051105 041040 0521 
014940 020128 032461 0304 
014346 020062 050505 040 
014954 020114 047524 052 
014962 040522 051516 052 
014970 047511 020116 047 
014276 052520 020124 044 
014304 051524 000 
2062 014307 —-128-«-052105—«051 
014314 044597 041524 020 
014322 042522 044507 052 
014380 051105 053440 052 
14336 020110 044124 020 
014344 042504 044523 042 
014352 020104 051120 043 
014360 040522 020115 05 
014366 044524 047117 000 


2043 014374 005015 042504 051 


2044 014416 052123 052101 05 


—— 3 A) —— A) ONIN — S10 YS on ea HFN 


0 
1 
051 
014432 042524 020122 047 
014440 042440 051122 051 
014446 000 
2045 014447 111 050116 052 
014454 051040 043505 051 
014462 042524 020122 047 
014470 042440 051122 051 
014476 000 
2046 014477 117 052125 052520 
014504 020124 042522 044507 
014512 052123 051105 044440 
014520 020116 051105 047522 
014526 000122 
2047 014530 047111 052520 020124 
014536 040506 046111 042105 
014544 052040 020117 047111 
014552 042524 051122 050125 
014560 000124 
2048 014562 052517 050124 052125 
014570 043040 044501 042514 
014576 020104 047524 044440 
014604 052116 051105 052522 
014612 052120 000 
2049 014615 125 042516 050130 
014622 041505 042524 020104 
014630 047111 042524 051122 
014636 050125 000124 
2050 014642 050117 051105 052101 
014650 051117 044440 052116 
014656 051105 042526 052116 
14 047511 020116 051105 
014672 047522 og ty 
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SWDPOB: 


DEPCNT: 


EM1: 


EM2: 


EM3: 


EM4: 


EMS: 


EM6: 


EM7: 


—Em10: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


«ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/SET SWITCH REGISTER WITH THE DESIRED PROGRAM OPTIONS/ 


<15><12>/DEPRESS CONT./<15><12> 


/STATUS REGISTER IN ERROR/ 


/INPUT REGISTER IN ERROR/ 


/OUTPUT REGISTER IN ERROR/ 


/INPUT FAILED TO INTERRUPT/ 


/OUTPUT FAILED TO INTERRUPT/ 


/UNEXPECTED INTERRUPT/ 


/OPERATOR INTERVENTION ERROR/ 


/INTERRUPT INPUT BIT FAILED TO SET INPUT READY FLAG/ 
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DFO: 0,0,0,0,0,0,0 


TSTNUM: 0 
-SBTTL SCOPE HANDLER ROUTINE 


RRARRARRRRARRAAE RATA ATA THe eee ee Ke AKAeAAAKeeeeeeeeeAeeeeAeee 
 STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
7*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

[*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


: *Swid= LOOP ON fizon 
7*Sw09=1 LOOP ON ERR 
37 *Sw08=1 LOOP ON EST IN SWR<7:0> 
3 *CALL 
7* SCOPE :: SCOPE=I0T 
SSCOPE: 
CKSW sTEST FOR CHANGE IN SOFT=SWR 
1$: BIT #BIT14,aSWR :;LOOP ON PRESENT TEST? 
BNE SOVER YES IF Swi4=1 
sMAHRASTART OF CODE FOR THE XOR TESTERMMAAA 
$XTSTR: BR 6$ ie1F RUNNING ON THE ‘'XOR'' TESTER CHANGE 


;THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 
MOV AWERRVEC,-(SP) 3;SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #5$ ,A#ERRVEC +3SET . TIMEOUT 


TST a#177060 ;TIME OUT ON XOR? 
MOV (SP)+,aWERRVEC ;;RESTORE THE ERROR VECTOR 
BR $SVLAD +360 TO THE NEXT TEST 
5$: CMP (SP)+,(SP)+ ;CLEAR THE STACK AFTER A TIME OUT 


MOV (SP) + ,@#ERRVEC 3 3RESTORE THE ERROR VECTOR 

BR 7$ LOOP ON te PRESENT TEST 
6$:;M##AHEND OF CODE FOR a, XOR iESTERMA aaee 

BIT #81T08,a : LOOP A, SPEC. TEST? 


ce 0 
CMPB aSWR ,STSTNA 330N THE RIGHT TEST? SWR<7:0> 
SOVER A, 


BEQ 37BR 
2s: TSTB SERFLG ::HAS AN-ERROR OCCURRED? 
BEQ SSVLAD 3;BR IF NO 
at #B1T09,aSwR fe AN eee 
7$: ~% oe ::SET LOOP ADDRESS TO LAST SCOPE 
4$: CLRB Beers 52 rEeT THE ERROR FLAG 
$SVLAD: INCB STSTNM ; s COUN T TEST NUMBERS 
MOVB STSTNA, 4 3 i T TEST NUMBER IN APT MAILBOX 
MOV (SP) ,SLPADR SAVE SCOPE LOOP reeds 
MOV (SP), *SLPERR SAVE ERROR LOOP ADDRESS 
CLR SESCAPE + CLEAR THE ESCAPE FROM ERROR ADDRESS 


MOVB #1, SERMAX sONLY ALLOW ONE(1) ERROR ON NEXT TEST 
SOVER: MOV STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER 
MOV SLPADR, (SP) ;;FUDGE RETURN ADDRESS 


RTI ;:FIXES PS 
-SBTTL ERROR HANDLER ROUTINE 


SEQ 0054 
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(2) FRRRRERRAARAARREREA AAA E AAA E RARE AAA AAAAERARAARAAEARAARAARA ERE 
(1) STHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) S*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(1) ;*AND GO TO SERRTYP ON ERROR 
(1) :*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) :*SW15=1 HALT ON ERRO 
(1) 3*$W13=1 INHIBIT ERROR TYPEOUTS 
(1) :*Sw09=1 LOOP ON ERROR 
(1) > *CALL 
4 '* ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 015602 SERROR: 
(1) 015602 104407 CKSWR 7; TEST FOR CHANGE IN SOF T-SWR 
(2) 015604 113737 001102 015406 MOVB STSTNM,TSTNUM 
(1) 015612 105237 001103 7$: INCB SERFLG ¢3SET THE ERROR FLAG 
(1) 015616 001775 BEQ 7$ DON'T LET THE FLAG GO TO ZERO 
(1) 015620 013777 001102 163314 MOV Ab Dea @DISPLAY ; sDISPLAY TEST yo AND ERROR FLAG 
(1) 015626 005237 1112 INC SERTTL ; INC THE ERROR COUN 
(1) 015632 011637 116 MOV (SP) ,SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
(1) 015636 162737. 000002 001116 SUB #2, SERRPC 
(1) 015644 117737 163246 001114 MOVB ASERRPC, SITEMB +t te AND SAVE THE ERROR iTEM CODE 
(1) 015652 032777 020000 163260 BIT #B1T13,aSWR 7 SKIP aye IF SET 
(1) 015660 001004 BNE 20$ ;SKIP_ TYPEOUT 
(1) 015662 004737 015774 JSR PC,SERRTYP £360 TO USER ERROR ROUTINE 
(1) 015666 104401 001163 TYPE » $CRLF 
(1) 015672 208: 
(1) 015672 122737 000001 001206 CMPB #APTENV, SENV ;;RUNNING IN APT MODE 
(1) 015700 001007 BNE 2$ :2NO, SKIP APT ERROR REPORT 
(1) 015702 113737 001114 015714 MOVB SITEMB,218 ;SET ITEM NUMBER AS ERROR NUMBER 
(1) 015710 004737 020102 JSR PC, SATY4 [IREPORT FATAL ERROR TO APT 
(1) 015714 000 218: -BYTE 0 
(1) 015715 000 -BYTE 0 
(1) 015716 000777 22$: BR 22% ;;APT ERROR LOOP 
(1) 015720 005777 163214 2$: TST aswR ;;HALT ON ERROR 
(1) 015724 100002 BPL 3$ 3;SKIP IF CONTINUE 
(1) 015726 000000 HALT a ON ERROR! 
(1) 015730 104407 CKSWR 3: TEST FOR CHANGE IN SOF T-SWR 
(1) 015732 032777 001000 163200 3$: BIT #B1T09,aSwR +: LOOP ON ERROR SWITCH SET? 
(1) 015740 001402 BEQ F NO 
(1) 015742 013716 001110 MOV SLPERR, (SP) 3 3 FUDGE RETURN FOR LOOPING 
(1) 015746 005737 001160 4$: TST SESCAPE ;CHECK FOR AN ESCAPE ADDRESS 
(1) 015752 001402 BEQ 5$ ::BR IF NONE 
Ma Ete! 013716 001160 $$ MOV SESCAPE, (SP) 3;FUDGE RETURN ADDRESS FOR ESCAPE 
(1) 015760 022737 013216 000042 CMP #SENDAD ,a#42 3;ACT-11 AUTO-ACCEPT? 
(1) 015766 001001 BNE 6$ ;;BRANCH IF NO 
(1) 015770 000000 HALT 77 YES 
(1) 015772 6$: 
2067 015772 000002 RTI 7 ;RETURN 
-“ -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) PeeeeeeeeeeeeeeeeeeerekeererrertreeeerteeeeeeereeKeeeereeeeeiett 
(1) TaTHIS ROUTINE USES THE ‘ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 
(1) TERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB), 
(1) ;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR, 
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MACY11 306(1063) 
ERROR MESSAGE TYPEOUT ROUTINE 


SERRTYP: 
TYPE , SCRLF 
MOV RO,-(SP) 
CLR RO 
B1SB avSITEMB,RO 
BNE 1$ 
MOV SERRPC,-(SP) 
TYPOC 
BR 6% 

1$ DEC RO 
ASL RO 
ASL RO 
ASL RO 
ADD #SERRTB,RO 
MOV (RO) +,2$ 
BEQ 3$ 
TYPE 

2$: » WORD 
TYPE ,SCRLF 

3$: MOV (RO)+,4$ 
BEQ 5$ 
TYPE 

4$: . WORD 0 
TYPE CRLF 

5$: MOV (RO) ,RO 
BNE 7$ 

6$: MOV (SP)+,RO 
TYPE , SCRLF 
RTS PC 

7$: 
MOV a(RO)+,-(SP) 
TYPOC 
TST (RO) 
BEQ 6$ 
TYPE 8$ 
BR 7$ 

8$: ASCIZ ¢ # 
~EVEN 


-SBTTL BINARY TO OCTAL (ASCII) 


— 5 
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j CARRIAGE RETURN’ & “LINE FEED" 
:PICKUP THE ITEM INDEX 


sal ITEM NUMBER IS ZERO, JUST 
;TYPE THE PC OF THE ER ROR 
T:SAVE SERRPC FOR TYPEOUT 
TY ADDRESS 
Ie ie ASCIICALL DIGITS? 


UT 
S TADJUST THE INDEX SO THAT IT WILL 
os WORK FOR THE ERROR TABLE 


44 TABLE POINTER 
;PICKUP ‘‘ERROR MESSAGE'’ POINTER 
;SKIP TYPEOUT IF NO POINTER 
TYPE THE ‘ERROR MESSAGE"’ 
77"'ERROR MESSAGE'’ POINTER ei oe 
7:'‘CARRIAGE RETURN'' & "'LINE F 
;:PICKUP ‘DATA HEADER"’ POINTER 
;;SKIP TYPEOUT IF 0 
th THE ‘‘DATA HEADER"’ 
33''DATA HEADER'' POINTER GOES HERE 
3''CARRIAGE RETURN’ & “LINE F FEED"’ 
;3PICKUP TABLE"’ POINTER 
+260 TYPE THE DATA 


STORE R RO 
OR ees aa RETURN’ & “LINE FEED"’ 


+2 SAVE a(RO)+ FOR TYPEOUT 

GO TYPE--OCTAL ASCII(ALL DIGITS) 
iis oye ANOTHER NUMBER? 
33 TYPE TWO(2) SPACES 


LOOP 
5 ot) SPACES 


AND TYPE 


SRR AREA AA AAA AREA AA AERA RATER AREA AA ARA KARAT AAA KAR KAKA AAR AAA A AT 


 STHIS ROUTINE IS USED TO sy A 16-BIT BINARY NUMBER TO A 6-D!GIT 


S*OCTAL (ASCII) NUMBER AND T 


YPE IT. 
[*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


*CALL: 


ie 
7* 
7 . N 
3¢ -BYTE & 
3% 
jt 
3¢ 


NUM ,-(SP) 


; NUMBER TO BE a ts 
3;CALL_FOR TYPEOUT 


73N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 


7;M=1 OR 0 
32 1=TYPE LEADING ZEROS 
3;0=SUPPRESS LEADING ZEROS 


SEQ 0056 
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} (1) s*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) :*$TYPOS OR $TYPOC 
| (1) s*CALL: 
; mM te MOV NUM, =(SP) :;NUMBER TO BE TYPED 
i} i“ TYPON 3;CALL FOR TYPEOUT 
at ST YPOC=--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
LL: 
(1) tt MOV NUM, -(SP) ::NUMBER TO BE TYPED 
He 3” TYPOC 3;CALL FOR TYPEOUT 
(1) 016130 017646 000000 $TYPOS: MOV ¢ SP) ,-(SP) 3;;PICKUP THE MODE 
(1) 016134 116637 000001 016353 MOVB 1(SP) ,SOFILL :;LOAD ZERO FILL SWITCH 
(1) 016142 112637 016355 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPe 
(1) 016146 062716 000002 ADD #2, (SP) ;;ADJUST RETURN ADDRESS 
(1) 016152 000406 BR $TYPON 
(1) 016154 112737 000001 016353 $TYPOC: MOVB #1,$0FILL :;SET THE ZERO FILL SWITCH 
(1) 016162 112737 000006 016355 MOVB #6,$OMODE+1 ::SET FOR SIX(6) DIGITS 
(1) 016170 112737 000005 016352 S$TYPON: MOVB #5.$0OCNT ::SET THE ITERATION COUNT 
(1) 016176 010346 MOV R3,-(SP) 3s SAVE R 
(1) 016200 010446 MOV R4,-(SP) 3s SAVE R4 
(1) 016202 010546 MOV R5,-(SP) >: SAVE R5 
(1) 016204 113704 016355 MOVB SOMODE+1, RG ::GET THE NUMBER OF DIGITS TO TYPE 
(1) 016210 005404 NEG 
(1) 016212 062704 000006 ADD 76.6 ;;SUBTRACT IT FOR MAX. ALLOWED 
(1) 016216 110437 016354 MOVB  R4.$OMODE ::SAVE IT FOR USE 
(1) 016222 113704 016353 MOVB SOFILL,R4 :2GET THE ZERO FILL SWITCH 
(1) 016226 016605 000012 MOV 12(SP),R5 sPICKUP THE INPUT NUMBER 
(1) 016232 005003 CLR R3 >= CLEAR THE OUTPUT WORD 
(1) 016234 006105 1$: ROL R5 ;;ROTATE MSB INTO ‘'C"’ 
(1) 016236 000404 BR 3$ 3:;G0 DO MSB 
(1) 016240 006105 2$: ROL R5 > FORM THIS DIGIT 
(1) 016242 006105 ROL RS 
(1) 016244 006105 ROL RS 
(1) 016246 010503 MOV R5,R3 
(1) 016250 006103 3$: ROL R3 ::GET LSB OF THIS res 
(1) 016252 105337 016354 DECB SOMODE +3 TYPE — DIGIT 
(1) 016256 100016 BPL sBR IF 
(1) 016260 042703 177770 BIC #177770,R3 :3GET RID OF JUNK 
(1) 016264 001002 BNE 4$ T FOR 0 
(1) 016266 005704 TST R4 : 3 SUPPRESS THIS 0? 
(1) 016270 001403 BEQ 5$ YES 
(1) 016272 005204 4$: INC R4 >: DON' ' SUPPRESS ANYMORE 0°S 
| (1) 016276 052703 000060 BIS #'0,R3 ::MAKE THIS DIGIT ASCII 
(1) 016300 052703 000040 5$: BIS #' RB *:MAKE ASCII IF NOT ALREADY 
(1) 016304 110337 016350 MOVB = R23, 8S >:SAVE FOR TYPING 
(1) 016310 104401 016350 TYPE 83 3:G0 TYPE THIS DIGIT 
(1) 016314105337 016352 7$ DECB © $OCNT >:COUNT BY 1 
/ (1) 016320 «003347 BGT ::BR IF MORE TO DO 
(1) 016322 002402 BLT 64 ::BR IF DONE 
| (1) 016324 005204 INC R4 + INSURE LAST DIGIT ISN'T A BLANK 
(1) 016326 000744 BR 23 DO THE LAST DIGIT 
} (1) 016330 012605 6$: MOV (SP)+,R5 > :RESTORE R5 
| (1) 016332 012604 MOV (SP)+,R4 ;sRESTORE R4 
(1) 016334 012603 MOV (SP)+,R RESTORE R3 
(1) 016336 016666 000002 000004 MOV 2(SP),4(¢SP) :;SET THE STACK FOR RETURNING 


i 
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BINARY TO OCTAL (ASCII) AND T 


8$: -BYTE 


8B 
SOCNT: .BYTE 
SCFILL: .BYTE 
SOMODE: .WORD 


(SP)+, (SP) 
7 ;RETU 


RN 
;;STORAGE FOR ASCII DIGIT 
7; TERMINATOR FOR te ROUT INE 


oooo 
. . 
~~ 
wm 
> ©] 

Oo 
on 
= 
rf 
a 


SWITCH 
;;NUMBER OF DIGITS TO TYPE 


-SBTTL POWER DOWN AND UP ROUTINES 


Pee eeeeeeereeeeteeeteerererertererkerenentkeneeeeereeereeenerene 


;POWER DOWN ROUTINE 


SPWRON: MOV 


SRRERAAHHEHAREHEHEHHEHHAEKEKHAAKERAAARAAAARAERAAKARAA HATA AAN AES 


WSILLUP,a#PWRVEC ;;SET FOR FAST UP 
#340, a#PWRVEC+2 ;:PRIO:7 


RO,-(SP) 3;PUSH RO ON STACK 
R1,-(SP) 3;PUSH R1 ON STACK 
R2,-(SP) 3;PUSH R2 ON STACK 
R3,-(SP) 3;PUSH R3 ON STACK 
R4,-(SP) ::PUSH R4& ON STACK 
R5,-(SP) 3;PUSH RS ON STACK 
og 3;PUSH @SWR ON STACK 
SP,SSAVR6 3; SAVE SP 

PSPURUP. a#PWRVEC ;;SET UP VECTOR 

72 3 HANG UP 


BOWER UP ROUTINE 


$PWRUP: MOV 


1$: INC 


SPWRMG: .WORD 
MO 
SPWRAD: .WORD 


SILLUP: HALT 
SSAVR6: 


PWRMSG: .ASCIZ 


#SILLUP, “Whose 3;SET FOR FAST DOWN 


SSAVR6,S sceel 

SSAVR6 ;;WAIT LOOP FOR THE TTY 
SSAVR6 ;;WAIT FOR THE INC 

1$ 7;0F WORD 

(SP)+,aSwWR ;:POP STACK INTO @SwR 
(SP)+,R5 3;POP STACK INTO R5 
(SP)+,R4 ;;POP STACK INTO R4 
(SP)+,R3 ;:POP STACK INTC R3 
(SP)+,R2 33POP STACK INTO R2 
(SP)+,R1 ;;POP STACK INTO R1 


(SP)+, 
#340, a#PURVEC+2 ; 


(PC)+, (SP) 7 RESTART AT BEGINI 
BEGIN ;;RESTART ADDRESS 


eet POWER UP SEQUENCE WAS STARTED 
72 A THE POWER DOWN WAS COMPLETE 


THE SP_H 


HERE 
<15><12>/RESTARTING” AFTER A POWER FAILURE/<15><12> 


RO 33 STACK INTO RO 
#SPURON, a#PWRVEC gE ¥ THE POWER DOWN VECTOR 


ze REPORT THE POWER FAILURE 
PWRMSG ;;POWER FAIL MESSAGE POINTER 


SEQ 0058 
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016574 000 
016576 


2074 EVEN 
sf .SBTTL TYPE ROUTINE 

(2) TORRES EEAESEESELALLESESAE SESE EEE EEE SEER RSE R RRR RRR RRR RRA AAR R SAAS OS 

(1) ® SROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 B 

(1) S*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE. FEED. 

(1) ‘*NOTE1: S$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

(1) + *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

3 : *NOTES: SFILLC CONTAINS THE CHARACTER TO FILi AFTER. 

(1) eCAL 

(1) se) “USING A TRAP kee ee 

th — TYPE »MESAD s;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
oe 

(1) se TYPE 

1) 3* MESADR 

i ‘ 

(1) 016576 105737 001157 $TYPE: TSTB $STPFLG 3718S THERE A TERMINAL? 

(1) 016602 100002 BPL 1$ ;;BR IF YES 

(1) 016604 000000 HALT s;HALT HERE IF NO TERMINAL 

(1) 016606 000430 BR 3$ 7; LEAVE 

(1) 016610 010046 1$: MOV RO,-(SP) ;; SAVE RO 

(1) 016612 017600 000002 MOV a2(SP),RO ::GET ADDRESS OF ASCIZ STRING 

(1) 016616 122737 000001 001206 CMPB #APTENV,SENV ; | RUNNING IN APT MODE 

(1) 016624 001011 BNE 62$ 3NO,GO CHECK FOR ¥* ae 

(1) 016626 132737 000100 001207 BITB PAPTSPOOL ,SENVM : SPOOL MESSAGE TO A 

(1) 016634 001405 BEQ 62$ +:NO,GO CHECK FOR CON NSOL E 

(1) 016636 010037 016646 MOV RO,61$ >: SETUP MESSAGE ss FOR APT 

(1) 016642 004737 020072 JSR PC, SATY3 ++ SPOOL MESSAGE TO A 

(1) 016646 000000 61$: -WORD 0 sMESSAGE ADDRESS 

(1) 016650 132737 000040 001207 62$: BITB #APTCSUP,SENVM :3APT CONSOLE SUPPRESSED 

(1) 016656 001003 BNE 60$ sYES,SKIP TYPE OUT 

(1) 016660 112046 2$: MOVB (RO)+,=(SP) ; PUSH CHARACTER TO BE TYPED ONTO STACK 

(1) 016662 001005 BNE 4$ :BR IF IT ISN'T THE TERMINATOR 

(1) 016664 605726 TST (SP)+ ZrIF ho ag POP IT OFF THE STACK 

(1) 016666 012600 60$: MOV (SP)+,R0 7; RESTORE RO 

(1) 016670 062716 000002 3$: ADD #2,(SP) Hie pe RETURN PC 

(1) 016674 000002 RTI 3R 

(1) 016676 122716 000011 4$: CMPB #HT, CSP) + BRANCH IF <HT> 

(1) 016702 001430 BEQ 

(1) 016704 122716 000200 CMPB #CRLF, (SP) ;;BRANCH IF NOT <CRLF> 

(1) 016710 001006 BNE 5$ 

(1) 016712 005726 TST (SP)+ :;POP <CR><LF> EQUIV 

(1) 016714 104401 TYPE 3; TYPE A CR AND LF 

(1) 016716 001163 SCRLF 

(1) 016720 105037 017054 CLRB SCKARCNT 3:;CLEAR CHARACTER COUNT 

(1) 016724 000755 BR 2$ 3:GET NEXT CHARACTER 

(1) 016726 004737 017010 5$: JSR PC ,STYPEC 7:GO TYPE THIS CHARACTER 

(1) 016732 123726 001156 6$: CMPB SFILLC,(SP)+ 3:18 IT TIME FOR pee CHARS.? 

(1) 016736 001350 BNE 23 3:1F NO GO GET NEXT CHA 

(1) 016740 013746 001154 MOV $NULL ,-(SP) 3:GET # OF FILLER CHARS. "NEEDED 

(1) + 7 AND THE NULL CHAR. 

(1) 016744 105366 000001 7$: DECB 1(SP) ;DOES A NULL NEED TO BE TYPED? 

(1) 016750 002770 BLT 6$ > IBR IF NO--GO POP THE NULL OFF OF STACK 


, on 
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‘CRLPFC.P11 23-OCT-80 09:03 TYPE ROUTINE SEQ 0060 
(1) 016752 004737 017010 JSR PC ,STYPEC G0 TYPE A NUL 
(1) 016756 105337 017054 DECB © $CHARCNT ;3D0 NOT COUNT AS A COUNT 
| C) 016762 000770 BR 7$ * SLOOP 
| 1) HORIZONTAL TAB PROCESSOR 
(1) 016764 112716 000040 8$: Move = #"_—, (SP) ; REPLACE TAB WITH SPACE 
| (1) 016770 004737 (017010 9$: JSR PC, $TYPEC ;;TYPE A SPACE 
(1) 016774 132737 000007 017054 BITB. st? SCHARCNT “BRANCH IF NOT AT 
| <1) 017002 001372 BNE 9$ [TAB STOP 
| (1) 017004 005726 TST (SP) + ;;POP SPACE OFF STACK 
(1) 017006 000724 BR 2$ < GET NEXT CHARACTER 
(1) 617010 105777 162134 STYPEC: TSTB aSTPS StWAIT UNTIL PRINTER IS READY 
(1) 017014 100375 BPL STYPEC 
(1) 017016 116677 000002 162126 MOVB  2(SP) a$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
(1) 017024 122766 000015 000002 CMPB ss #'CR, 2 (SP) °t1$ CHARACTER A CARRIAGE RETURN? 
(1) 017032 001003 BNE 1$ BRANCH IF NO 
(1) 017034 105037 017054 CLRB - SCHARCNT :EYESc=CLEAR CHARACTER COUNT 
(1) 017040 000406 BR STYPEX SEXIT 
(1) 017042 122766 000012 000002 1S: CMPB so #LF,2(SP) tS CHARACTER A LINE FEED? 
(1) 017050 001402 BEQ STYPEX “BRANCH IF YES 
(1) 017052 105227 INCB (PC) + :;COUNT THE CHARACTER 
(1) 017054 000000 SCHARCNT:. WORD 0O : CHARACTER COUNT STORAGE 
a) 017056 000207 STYPEX: RTS PC 
oh .SBTTL READ AN OCTAL NUMBER FROM THE TTY 
(2) PARMAR A RA eee eeeAAAe Hee eee eee eee eAeeeeeKeeeeteeeeeerreeteeetet 
(1) “THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
(1) CHANGE IT TO BINARY. 
(1) s*CALL: 
(1) ;@ RDOCT : READ AN OCTAL NUMBER 
C1) te RETURN HERE LOW ORDER BITS ARE ON TOP OF THE STACK 
wD) te ‘THIGH ORDER BITS ARE IN $HIOCT 
(1) 017060 011646 SRDOCT: MOV (SP) ,-(SP) ::PROVIDE SPACE FOR THE 
(1) 017062 016666 000004 000002 MOV 4(SP),2¢SP) :; INPUT NUMBER 
(3) 017070 010046 MOV RO, -(§P) PUSH RO ON STACK 
(3) 017072 010146 MOV R1.=(SP) PUSH R1 ON STACK 
(3) 017074 010246 MOV R2.-(SP) : PUSH R2 ON STACK 
(1) 017076 104411 1$: RDLIN READ AN ASCIZ LINE 
(1) 0171 012600 MOV (SP)+,RO ::GET ADDRESS OF 1ST CHARACTER 
(1) 017102 005001 CLR R1 3: CLEAR DATA WORD 
(1) 017104 005002 CLR R2 
(1) 017106 112046 2$: MOVB (RO)+,-(SP) ;;PICKUP THIS CHARACTER 
(1) 017110 001412 BEO 3$ <t1F ZERO GET OUT 
(1) 017112 006301 ASL R1 tie2 
(1) 017114 006102 ROL R2 
(1) 017116 006301 ASL RI rh 
(1) 017120 006102 ROL R2 
(1) 017122 006301 ASL R1 378 
(1) 017124 006102 ROL R2 
CV) 017126 042716 =: 177770 BIC #*C7, (SP) ::STRIP THE ASCII JUNK 
(1) 017132 062601 ADD (SP)+,R1 ‘tADD IN THIS DIGIT 
(1) 017134 000764 BR 2$ : [LOOP 
(1) 017136 005726 3$: TST (SP)+ 7: CLEAN TERMINATOR FROM STACK 
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MACY11 306(1063) 24-OCT-80 09:34 PAGE 5-23 
READ AN OCTAL NUMBER FROM THE TTY 


MOV R1,12(SP) ;;SAVE THE RESULT 


3;POP STACK INTO R2 
7;POP STACK INTO R1 
MOV (SP)+, “RO ;;POP STACK INTO RO 


RTI 3; ;RETURN 
S$HIOCT: .WORD 0 ;;HIGH ORDER BITS GO HERE 
-SBTTL TTY INPUT ROUTINE 


FERRARA RARER AAA E EEA AEE REET AHA RAE AA ARERR AERARHRERAAARAA RAAT AEE 


-ENABL LSB 


PARMA Ree eA eee Tee eAe KAKA Te THA TAA KAKA TAA AAT AAA ee eK eee eAeeeAeeee 
S*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, WILL 

s*SERVICE THE TEST FOR CHANGE IN SOFTWARE Sui tcH REGISTER TRAP CALL 
:*WHEN OPERATING IN TTY FLAG MODE. 


$CKSWR: CMP #SWREG, SWR ::1S THE SOFT-SWR SELECTED? 
BNE 15$ ::BRANCH IF NO 
TSTB = @STKS i: CHAR THERE? 
BPL 15$ ::IF NO, DON’ I alt AROUND 
MOVB  a$TKB,-(SP) :SAVE THE CHA 
BIC #°C177, (SP) :: STRIP=OF F THE ASCII 
CMP #7, (SP)+ ::1$ IT A CONTROL G? 
BNE 15$ >:NO, RETURN TO USER 
CMPB ss $AUTOB,, #1 = :ARE WE RUNNING IN AUTO-MODE? 
BEQ 15$ ;;BRANCH IF YES 
TYPE ,SCNTLG ::ECHO THE CONTROL-G (*G) 
SGTSWR: TYPE SMSWR >: TYPE CURRENT CONTENTS | 
MOV SWREG,-(SP) ::SAVE SWREG FOR TYPEOUT 
TYPOC *:G0 TYPE--OCTAL ASCITCALL DIGITS) 
TYPE SMNEW ::PROMPT FOR NEW SWR 
19$: CLR =(SP) *:CLEAR COUNTER 
CLR -(SP) ::THE NEW SWR 
7$: TSTB = aSTKS >:CHAR THERE? 
BPL 7$ ::IF NOT TRY AGAIN 
MOVB = aSTKB,-(SP) ::PICK UP CHAR 
BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 
9% CMP (SP) #25 ::1S IT A CONTROL-U? 
BNE 10$ : ;BRANCH IF NOT 
TYPE /SCNTLU YES, ECHO CONTROL-U (*U) 
20$ ADD #6,SP i: 1GNORE PREVIOUS INPUT 
BR 19$ *:LET'S TRY IT AGAIN 
10$: CMP (SP) ,#15 ::1S IT A <CR>? 
BNE 16$ >:BRANCH IF NO 
TST 4(SP) >:YES, IS IT THE FIRST CHAR? 
BEQ 11$ ::BRANCH IF YES 
MOV 2(SP),aSWR >: SAVE NEW SWR 
11$: ADD #6,5S >:CLEAR UP STACK 


SEQ 0061 


| 28 
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CRLPFC.P11 23-OCT-80 09:03 TTY INPUT ROUTINE SEQ 0062 
(1) 017340 104401 001163 148: TYPE SCRLF :sECHO <CR> AND <LF> 
(1) 017344 123727 001135 000001 CMPB ss S$ INTAG, #1 = RE-ENABLE TTY KBD INTERRUPTS? 
(1) 017352 001003 BNE 15 :;BRANCH IF NOT 
(1) 017354 012777 000100 161562 MOV #100,a$TKS : RE-ENABLE TTY KBD INTERRUPTS 
(1) 017362 000002 15$: RTI ; ;RETURN 
(1) 017364 004737 017010 16$: JSR PC, STYPEC >:ECHO CHAR 
(1) 017370 021627 000060 CMP (SP), #60 ::CHAR < 0? 
(1) 017374 002420 BLT 18$ ::BRANCH IF YES 
(1) 017376 021627 000067 CMP (SP) ,#67 *:CHAR > 7? 
(1) 017402 003015 BGT 18$ ::BRANCH IF YES 
(1) 017404 042726 000060 BIC #60, (SP)+ *:STRIP=OFF ASCII 
(1) 017410 005766 000002 TST 2(SP) ‘:1S THIS THE FIRST CHAR 
(1) 017414 001403 BEQ 17$ ::BRANCH IF YES 
(1) 017416 006316 ASL (SP) ‘:NO, SHIFT PRESENT 
(1) 017420 006316 ASL (SP) i CHAR OVER TO MAKE 
(1) 017422 006316 ASL (SP) ROOM FOR NEW ONE. 
(1) 017424 005266 000002 17$: INC 2(SP) ::KEEP COUNT OF CHAR 
(1) 017430 056616 177776 BIS =2(SP), (SP) ::SET IN NEW CHAR 
(1) 017434 000707 BR 7$ *:GET THE NEXT ONS 
(1) 017436 104401 001162 18$: TYPE $QUES S:TYPE 2<CR><LF> 
(1) 017442 000720 BR 30$ ::SIMULATE CONTROL-U 
(1) .DSABL LSB 
1) 
(2) SERRE EEA EERE RATE EERE AEE RERE EAE EEA AEERR ERA ARERE KERR RE 
() sSTHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
:*CALL: 
(1) 7* RDCHR :: INPUT A SINGLE CHARACTER FROM THE TTY 
(1) :* RETURN HERE Si CHARACTER IS ON THE STACK 
(1 :* ::WITH PARITY BIT STRIPPED OFF 
(1) 
(1) 017444 011646 SRDCHR: MOV (SP) ,-(SP) ::PUSH DOWN THE PC 
(1) 017446 016666 000004 000002 MOV 4(SP),2(SP) >:SAVE THE PS 
(1) 017454 105777 161464 1$: TSTB = @STKS S:WAIT FOR 
(1) 017460 100375 BPL 1$ >:A CHARACTER 
(1) 017462 117766 161460 000004 MOVB  a$TKB,4(SP) *:READ THE TTY 
(1) 017470 042766 177600 000004 BIC #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 
(1) 017476 026627 000004 000023 CMP 4(SP), #23 ::1S IT A CONTROL-S? 
(1) 017504 001013 BNE 3$ >:BRANCH IF NO 
(1) 017506 105777 161432 2$: TSTB  a$TKS ::WAIT FOR A CHARACTER 
(1) 017512 100375 BPL 2$ >:LOOP UNTIL ITS THERE 
(1) 017514 117746 161426 MOVB  a$TKB,-(SP) >:GET CHARACTER 
(1) 017520 042716 177600 BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 
(1) 017524 022627 000021 CMP (SP) +, #21 ::1S IT A CONTROL-Q? 
(1) 017530 001366 BNE 2$ ::1F NOT DISCARD IT 
(1) 017532 000750 BR 1$ [:YES, RESUME 
(1) 017534 026627 000004 000140 35: CMP 4 (SP), #140 ::1§ IT UPPER CASE? 
(1) 017542 002407 BLT 4$ ;3BRANCH IF YES 
(1) 017544 026627 000004 000175 CMP 4(SP),#175 ‘1S IT A SPECIAL CHAR? 
(1) 017552 003003 BGT 4$ +:BRANCH IF YES 
(1) 017554 042766 000040 000004 BIC #40,4(SP) ::MAKE IT UPPER CASE 
(1) 017562 000002 4$: RTI >:G0 BACK TO USER 
(2) PL AAee eee eee eee ee eee teeeeerereeeeetaeeettereeteetentatereeeeeens 
(1) STH ROUTINE WILL INPUT A STRING FROM THE TTY 
( s*CALL: 


| 5 ‘ 
'LPA DRI1-K LOGIC TEST MD-11-CRLPF-C ore ie 306(1063) 24-0CT-80" 09:34 PAGE 5-25 


CRLPFC.P11 23-OCT-80 09:03 TTY INPUT ROUTINE SEQ 0063 
MW :* RDLIN ss INPUT A STRING FROM THE TTY 

(1) ie RETURN HERE ‘SADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

q) te ‘: TERMINATOR WILL BE A BYTE OF ALL O'S 

(1) 017564 010346 SRDLIN: MOV R3,-(SP) sSAVE R3 

(1) 017566 005046 CLR -(§P) :] CLEAR. THE RUBOUT KEY 

(1) 017570 012703 020020 1$: MOV #STTYIN,R3 GET ADDRESS 

(1) 017574 022703 020027 2$: CMP #STTYING7,R3 BUFFER FULL? 

(1) 017600 101456 BLOS  4$ YES 

(1) 017602 104410 RDCHR ::G60 bap ONE CHARACTER FROM THE TTY 

(1) 017606 112613 MOVB = (SP)+#, (R3) :3GET CHARACTER 

(1) 017606 122713 000177 10$: CMPB #177, (R3) t:1S IT A RUBOUT 

(1) 017612 001022 BNE 5$ ::BR IF NO 

(i) 017614 005716 TST (SP) ::1$ THIS THE FIRST RUBOUT? 

(1) 017616 001007 BNE 6$ ::BR IF NO 

(1) 017620 112737 000134 020016 MOVB 3s #'\ 98 :: TYPE A BACK SLASH 

(1) 017626 104401 020016 TYPE ,9$ 

(1) 017632 012716 177777 MOV #-1, (SP) :;SET THE RUBOUT KEY 

(1) 017636 005303 6$: DEC R3 ::BACKUP BY ONE 

(1) 017640 020327 020020 CMP R3,#STTYIN =:STACK EMPTY? 

(1) 017644 103434 BLO 4$ ::BR IF YES 

(1) 017646 111337 020016 MOVB  (R3),9% ::SETUP TO TYPEOUT THE DELETED CHAR. 

(1) 017652 104401 020016 TYPE 9$ ::G0 TYPE 

(1) 017656 000746 BR 3$ ::GO READ ANOTHER CHAR. 

(1) 017660 005716 S$: TST (SP) ::RUBOUT KEY SET? 

(1) 017662 001406 BEQ 7$ ::BR IF NO 

(1) 017664 112737 000134 020016 MOVB = #'\ 98 :: TYPE A BACK SLASH 

(1) 017672 104401 020016 TYPE ,9$ 

(1) 017676 005016 CLR (SP) ::CLEAR THE RUBOUT KEY 

(1) 017700 122713 000025 7$: CMPB «#25, (R3) ::1S CHARACTER A CTRL U? 

(1) 017704 001003 BNE 8$ IF NO 

(1) 017706 104401 020027 TYPE =, SCNTLU >: TYPE A CONTROL "'U"’ 

(1) 017712 000726 BR i$ ::G0 START OVER 

(1) 017714 122713 000022 8$: CMPB ss #22, (R3) =: 1S CHARACTER A ‘''4R'? 

(1) 017720 001011 BNE 3$ ::BRANCH IF NO 

(1) 017722 105013 CLRB (R33) ZICLEAR THE CHARACTER 

(1) 017724 104401 001163 TYPE  ,$CRLF S:TYPE A 'CR' & LE’ 

(1) 017730 104401 020020 TYPE STTYIN [: TYPE THE INPUT STRING 

(1) 017734 000717 BR § 3360, PICKUP ANOTHER CHACTER 

(1) 017736 104401 001162 4$: TYPE SQUES 

(1) 017742 000712 BR i$ +3 CT EAR Ane BUFFER AND LOOP 

(1) 017744 111337 020016 38: MOVB = (R3) 98 ::ECHO THE CHARACTER 

(1) 017750 104401 020016 TYPE ,9$ 

(1) 017754 122723 000015 CMPB ss #15, (R3)+ ::CHECK FOR RETURN 

(1) 017760 001305 BNE 2$ ::LOOP IF NOT RETURN 

(1) 017762 105063 177777 CLRB = - 1(R3) [= CLEAR RETURN (THE 15) 

(1) 017766 104401 001164 TYPE  ,SLF ::TYPE A LINE FEED 

(1) 017772 005726 TST (SP) + =:CLEAN RUBOUT KEY FROM THE STACK 

(1) 017774 012603 MOV (SP)+,R3 S:RESTORE R3 

(1) 017776 011646 MOV (SP) ,-(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 

(1) 020000 016666 000004 000002 MOV 4(SP),2¢SP) tS FIRST ASCII CHARACTER ON IT 

(1) 020006 012766 020020 000004 MOV #STTYIN, 4(SP) 

(1) 020014 000002 RTI +: RETURN 

(1) 020016 000 9$: .BYTE 0 i} STORAGE FOR ASCII CHAR. TO TYPE 

(1) 020017 000 "BYTE 0 : : TERMINATOR 

(1) 020020 000007 STTYIN: .BLKB 7 S:RESERVE 7 BYTES FOR TTY INPUT 
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MACY11 306(1063) 
TTY INPUT ROUT 


SCNTLU: 
SCNTLG: 
SMSWR: 


SMNEW: 


-ASCIZ 
-ASCIZ 
-ASCIZ 
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INE 


/*U/<15><12> 
/*G/<15><12> 


+ sCONTROL . 
;CONTROL ‘'G’’ 


<15><12>/SWR = /- 
eASCIZ / NEW = / 


-SBTTL APT COMMUNICATIONS ROUTINE 


REAR AEE EEA AAAAAAARAARAAEHAAAEAAAAEEAEEAAEERAAEE 


éaty1: 


1$: 
2$: 
3$: 
4$: 
5$: 
10$: 


11$: 


12$: 


#1,SFFLG 
#1, SMFLG 


SATYC 
#1, SFFLG 
RO,-(SP) 
R1,-(SP) 
SMFLG 


$ 
#APTENV, SENV 
3$ 


3;TO REPORT FATAL ERROR 
3:TO TYPE A MESSAGE 


3;TO ONLY REPORT FATAL ERROR 


;;PUSH RO ON STACK 

3;PUSH R1_ON STACK 

+s SHOULD TYPE A MESSAGE? 
;1F NOT: BR 

3 ;OPERATING UNDER APT? 


NOT: BR 
re 3 3 SHOULD SPOOL MESSAGES? 


a4 (SP) ,RO 
#2,4(SP) 
SMSGTYPE 
1$ 


RO, SMSGAD 


(Rb) + 

2$ 

SMSGAD ,RO 
RO 

RO, SMSGLGT 
#4, SASGTYPE 
a4(SP),4$ 
#2,4(SP) 
177776, -(SP) 
PC,STYPE 


SFFLG 
12$ 
SENV 


128 
i 
Q4(SP) ,SFATAL 


#2,4(SP) 
SMSGTYPE 


(SP)+,RO 
PC 


:1F NOT: 
::GET MESSAGE 5 it 
P RETURN ADDR. 
:3SEE i “SOME / LAST XMISSION? 


NOT: WA 
:;PUT ADDR IN MAILBOX 
:3FIND END OF MESSAGE 


3;SUB START OF MESSAGE 

;;GET MESSAGE LNGTH IN WORDS 
3;PUT LENGTH IN MAILBOX 
3;;TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
BUMP RETURN ADDRESS 

> PUSH 145946 ON STACK 

‘= CALL TYPE MACRO 


a TNO: REPORT FATAL ERROR? 
de peop UNDER APT? 


a8 BR 
FINISHED LAST MESSAGE? 
fH a wast 


T ERROR # 
;BUMP_ RETURN a 
23 TELL abi TO TAKE ERRO 


SEQ 0064 
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‘CRLPFC.P11 23-OCT-80 
(1) 020326 000 
(1) 020327 ~—-000 
(1) 020330 000 
a) 020332 
(1) 000200 
(1) 000001 
(1) 000100 
(1) 000040 

2079 
(1) 
(2) 
(1) 
(1) 
q) 
a) 
Q) 
(1) 020332 010046 
(1) 020334 016600 
(1) 020340 00574 
(1) 020342 111000 
(1) 020344 00630 
(1) 020346 016000 
(1) 020352 000200 
(1) 
(1) 
Qa) 
(1) 
(1) 020354 011646 
(1) 020356 016666 
(1) 020364 000002 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 020366 020354 
(3) 020370 016576 
(3) 020372 016154 
(3) 020374 016130 
(3) 020376 016170 
(3) 020400 013252 
(3) 020602 017232 
(3) 020404 017162 
(3) 020406 017444 
(3) 020610 017564 
(3) 020412 017060 
2080 020414 
2081 
(2) 
(2) 
(2) 


09:03 


000002 


020366 


000004 000002 


APT COMMUNICATIONS ROUTINE 


SMFLG: 
SLFLG: 
SFFLG: 


“BYTE 


.EVEN 
APTSIZE=200 


APTENV= 


001 


APTSPOOL=100 


APTCSUP 


=040 


0 
0 
0 


-SBTTL TRAP DECODER 


PRA R Re RReeReAAee HATE H ATTA eeAA AeA eAReeAeteKeeeAAeeeeeeeede 
;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
s*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3*GO TO VHAT ROUTINE. 


STRAP: 


RO,-(SP) 
2(SP),RO 
-(RO) 

(RO) ,RO 


RO 
STRPAD(RO) RO 
RO 


a 8 pee 
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SEQ 0065 


33MESSG. FLAG 
3;LOG FLAG 
3s ;FATAL FLAG 


77 SAVE RO 
3;GET TRAP ADDRESS 
:;BACKUP BY 2 

:;GET RIGHT BYTE OF TRAP 
ssPOSITION FOR INDEXING 
3s; INDEX TO TABLE 

3:G0 TO ROUTINE 


7zTHIS IS USE TO HANDLE THE ‘'GETPRI*' MACRO 


STRAP2: 


MOV 
MOV 
RTI 


(SP) ,-(SP) 
4(SP),2(SP) 


-SBTTL TRAP TABLE 


z*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE ‘'TRAP’’ INSTRUCTION. 


$TRPAD: . 
$ 


BUFFER: 


ROUTINE 


$TYPON 
STYPDS 


SGTSWR 


SCKSWR 
SROCHR 
SROLIN 
nec 


STRAP2 

3; CALL=TYPE 
> ;CALL=TYPOC 
3; CALL=TYPOS 
3; CALL=TYPON 
3; CALL=TYPDS 


7; CALL=GTSUR 


7; CALL=CKSWR 
3; CALL=ROCHR 
3: CALL=ROLIN 
7; CALL=RDOCT 


;:MOVE THE PC DOWN 
;:MOVE THE PSW DOWN 
;;RESTORE THE PSW 


TRAP+1(104401) TTY TYPEOUT ROUTINE 

TRAP#+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


TRAP+6(104406) GET SOFT-SWR SETTING 


TRAP*+7(104497) TEST FOR CHANGE IN SOFT-SWR 
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
TRAP#+12(104412) READ AN OCTAL NUMBER FROM TTY 
310 WORD SUFFER FOR THE COULTER INTERFACE TEST 


eTHIS SUB CODE IS USED TO INITIALIZE THE LPA-11 
TeFIRST WE WILL LOAD MICROCODE INTO KMC-11 


ae 


LPA DRI1-K LOGIC TEST MD-11-CRLPF-C 
23-0CT-80 09:03 


eal P11 


~~ 
r 
~~ 


020416 
020416 


020422 


i i i i di i i 


020424 


020514 
020516 


020520 
020526 


eee et et te tetetetetatatetateatatetateatoateatatiatateteatetateatetetateatetatetlatatetetete 
POPDPIFO POP POPOMO PIP PUNO POPYNIPY PIPPI WWE, HPI PO POPU PIMP NM NPI NMPO NOMI PON POM PONY PY No Npofperoenyunroenro for nrnrn 


eee ee ee a ee ee ee ee a ae a ee a a ee eS a a we oe ee 
oOo 
So 
> 
So 


~ 


013746 
000413 


012737 
005237 
104401 
000401 


000401 


000004 


020450 
170000 
020444 


009004 
021104 
021106 


104000 


000040 


000004 


160662 


160644 


160632 
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s*NEXT WE WILL INIT BOTH UPROCESSORS 
;*THEN WE WILL LOAD DEVICE TABLE IN SLAVE U 
; # THE ORDER OF LOAD IS DETERMINED BY THE SER. 


CALL= JSR R5,SLPAI 
WORD 0 sADDR. OF DEVICE ADDRESS. 


PROGRAMS REQUIRED: DRLPX2 


if 

;* a 

;* ROUTINES REQUIRED:  .LOADLP 
;* 

;* 


;RETURNS WITH SAERR=1 IF SLAVE 


;MICRO SAYS AN ADDR. DOES NOT EXSIST. IN THE LIST. 


$LPAI: 
MOV 4,-(SP) 
BR 31$ sFIELD DOES NOT HAVE A BUS SWITCH TO 
;WORRY ABOUT,SO WE WILL UNCONDITIONALLY 
;BRANCH ARROUD THE NEXT CODE THAT 
;WORKS BASED ON A BUS SWITCH. 
;CODE LEFT IN HERE FOR IN HOUSE 
‘PERSONAL WHO MAY PATCH THIS BRANCH 
s INSTRUCTION TO A <NOP> OCTAL <240> 
;IN ORDER TO RUN PROGRAM WITH A SWITCH. 
sNOTE THIS ‘‘SWITCH’’ IS A PIECE OF INHOUSE 
;TEST EQUIPMENT ONLY IT cen’ TS 
: THE UNIBUS TO THE 1/0 BUS FOR 
‘CERTAIN TESTING. 
MOV #30$,4 
INC 170000 
TYPE ,65$ sz TYPE ASCIZ STRING 
R 64% ::GET OVER THE ASCIZ 
3;65$: .ASCIZ <7>## 
64$: 
BR 31$ 
30$: CMP (SP)+,(SP)+ 
31$: MOV (SP)+,4 sALL THIS JUNK MUST BE REMOVED!! 
CLR SAERR 
JSR R5,$LOAD ;LOAD MICRO-CODE. 
«WORD DRLPX2 FILE ‘‘DRLPX2. OBJ" 
BIS #BIT14,aKMADO ;ISSUE KMC+DMC INIT. 
1$: 
;""HANGS'' HERE THEN KMC-11 ERROR. 
MOV R1,-(SP) 
CLR R1 
2$: be Hy sSTALL FOR DMC-UP 
MOV #B1T15'BILT11,aKMADO 7SET RUN, AND ENABLE ARBITRATION. 
25$: INCB R1 
BNE 25% 
ay st hietemmntanatn 7SLAVE READY? (READING IPBM SR) 


SEQ 0066 





LPA DRI1-K LOGIC TEST 
/CRLPFC.P11 


RWWA NIP PI NINN NINN NINN NANWWN NA WNWAWWNIWroPeorrnrr 
ee ee a ae 


LL LOL BR LR PR PR PR PR Pm el lm Fe lm, my ey Pm my Pm Pm fm mm my Oe fm lm my fm Pm my my me oe me lm Om Oe me OO lm 


RPP PININIMNNWINNNPNNNNNWWWWPOP 
wwe wee US SS SY yea 


f 
| 


020530 
020532 
020540 
020540 


020544 


920546 


020550 


020570 


020572 
020600 


02 

020712 
020720 
020720 


02 

020770 
020774 
021002 
021004 


23-0CT-80 09 


104000 
012777 
004537 
104000 


000774 


122777 


104000 


117737 


000426 
013746 
104403 

002 
104401 
000402 


-—-co00— 
S=sS8RS= 
MLW ron 

LS) 

Ww 

~ 


Sas 


000004 
022016 


000377 
000377 


160572 
177777 


177777 
020622 


021052 

000 
020714 
177777 


000000 
021052 


021054 
000002 
000002 


MD-11-CRLPF-C 
:03 


160624 


160606 
160602 


021052 


021052 


160420 


160356 
160352 


MACY11 306(1063) 
TRAP TABLE 


3$: 
4$: 


35 


66 


;;69$: 


$: 


;;67$: 


$: 


68s: 
5$: 
6$: 


7$: 


ERROR 
MOV 
JSR 
ERROR 


pa 
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#4 ,aKMAD2 
RS, $TOUT 


4$ 


+ (bee 
#377 ,aKMAD4 
35$ 


@KMAD4 ,11$ 
#-1 


5$ 
#-1 


5$ 
,67$ 


66% ;GET 
<200>"'M8200-YC (DMC) MICROCODE VERSION NUMBER = " 


11$,-(SP) 


11$,aKMAD4 
PC, 208 
(Ri) +, @KMAD4 
PC, 208 

(R1) +, aKMAD4 
PC, 208 
#B1T1,aKMADO 
7$ 

#2, aKMAD2 


;FATAL LPA=11 ERROR SLAVE NOT READY. 


;READ FAST PATH 
;*TOUT=CHECK FOR TIMEOUT 
;/TIME-OUT ERROR 

;/WE FAILED TO COMPLETE 
;/CURRENT OPERATION. 


:/CONTINUES IN THIS LOOP 
;/WOULD MAKE US "'HANG’’ HERE 


;/RETURNS HERE-FROM-TIMED OUT. 
;WAIT TILL KMC DONE COMMAND. 


;IF FAST PATH=377 THEN ERROR. 


; IPBM ERROR (SLAVE SIDE) 
;YOU MUST RUN IPBM DIAGNOSTIC. 


3GET THE VERSION NUMBER FROM DMC-11 


nor ASCIZ STRING 
OVER THE ASCIZ 


7: TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 


;DAC CODE FOR SLAVE. 
GET NEXT DEVICE ADDR. 
; TERM REACHED? 


:FIFO DATA 
ISSUE SEND 
:SEND LOW BYTE OF DEVICE ADDR TO SLAVE. 
ISSUE SEND 

;SEND HIGH BYTE OF DEVICE ADDR. 


_ 4-0 ade DATA 
=1 NO DATA. =0 DATA. 
;READ FIFO. 


TO SLAVE. 


SEQ 0067 


f 


‘LPADR11-K LOGIC TEST MD- oO CRLPF-C 


‘eran P11 


POPOPIAPIAG POM PUNO PINON MINIM NID WWI WNWNI WEG, NNN NPP POPU POPU MOP POPE PO POPE fe nor 
er ee eee ee a a a ee a ee SS Sa ee ee a 


SSS sss ss 
ROR BR PR BPR PRP PR Oe ee em lm me my Fy fm, Py fl, Fm fm, im mm Fm my fm me mm Pm Pe lm om 


021012 
021012 


021016 


021020 
021022 


021036 
021040 
021044 
021046 
021050 
021052 
021054 
021062 
021062 


021066 


021070 


021072 
021100 
021102 


021104 


004537 
104000 


000774 


122777 
001370 
105777 
001734 
005237 
005041 
012601 
000205 


000000 


112777 
004537 
104000 


000774 


122777 
001370 
000207 


000000 


23-OCT-80 09: 


022016 


000377 
160332 


021104 


000003 
022016 


000377 


8$: 


160334 


10$: 
11$: 


160302 20$: 
218: 


160264 


SAERR: 


SLOAD: 


1$: 


MACY11 306(1063) 
TRAP TABLE 


JSR 
ERROR 


dD 6 
24-0CT-80 09: 


RS, $TOUT 


8$ 


#377 ,aKMAD2 
8$ 

@KMADS 

6$ 


SAERR 
-(1) 
(SP)+,R1 
R5 

0 


#3, QKMAD2 
R5, $TOUT 


21% 


#377, aKMAD2 
21$ 

PC 

0 


;*THIS wi ® CODE ot TO 


-WORD XX ;ADDR. OF MICRO CODE. 
:RETURNS HERE 

NOTE: MICRO CODE FILE MUST END IN -1 DATA. 

R4,-(SP) sSAVE R4. 

RO,-(SP) 7 SAV 


(5)+,RO 
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;*TOUT-CHECK FOR TIMEOUT 


;/TIME-OUT ERROR 

;/WE FAILED TO COMPLETE 
;/CURRENT OPERATION. 
:/CONTINUES IN THIS LOOP 
;/WOULD MAKE US HANG?” HERE 


;/RETURNS HERE-FROM-TIMED OUT. 
;WAIT FOR READ. 


;WAS A ZERO gh 

;YES GET NEXT A 

;SLAVE WILL RETURN’ CODE 0 IF 

:DEV PRESENT. ELS 

TEXIT $AERR=1 IF SLAVE GIVES ERROR. 
;GET RID OF REFERENCE TO BAD ADDR. 


;RETURN ALL ADDR. CHECKED. 


;HOLDS DAC CODE PLUS OFFSET 
;TO SLAVES ADDR. TABLE. 


; ISSUE FIFO WRITE 
;~TOUT-CHECK FOR TIMEOUT 


:/TIME-OUT ERROR 

;/WE FAILED TO COMPLETE 
;/CURRENT OPERATION. 
;/CONTINUES IN THIS LOOP 
;/WOULD MAKE US ‘'HANG'’ HERE 


;/RETURNS HERE-FROM-TIMED OUT. 
SKMC CODE WILL RETURN A ''377"' 
:WHEN DONE COMMAND. 


:=0 IF ADDR. LIST OK,=1 IF BAD. 


LOAD MICRO-CODE INTO LPA~11. 
R5,$LOAD 


E RO. 
;GET PROG. ADDR. 


SEQ 0068 


AF FRR RRR RAR RRA RAR RAAF AAA AA AAA AAO OO 
POR POPPY PIPYPDNI PS PON MINI NPI NINN PIM NIM NNMNMNPNMPNNIPPrr 
wwe ww yee we UYU UY YE Yee 


AOUMNESWWN 


021 

021 
021 
02123 
021234 


= 
~M RRP PRTPNTPN— ee | 


Wr NN 


oO 
~m 
— 
~m 


021242 
021244 


021246 


LPA DR11-K LOGIC TEST 


CRLPFC.P11 23-OCT-80 


000762 


012600 
012604 
000205 


005745 
105204 
100324 
000000 


000722 


MD-11-CRLPF-C 


09:03 


000340 


160054 


160226 
160214 


160160 


160064 
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3$: 


4$: 


5$: 


STLKW: 


CLR axMAn0 

CLR 

BIS #5000, aKMADO 
MOV (0) +, aKMAD6 
Bis #20000, aKMADO 
INC orneee 

CMP (0) ,#=1 

BNE 2$ 

CLR AKMADG 

MOV =2(5),RO 

BIS #2000, aKMADO 
CMP (RO) + aKMAD6 
BNE 5$ 

CMP (0) ,#=1 

BEQ 4$ 

CLR akMADO 

INC AKMAD4 

BR 3$ 

MOV P)+,RO 


($ 
MOV (SP)+,R4 
R5 


TST -(5) 
INCB R4 
BPL 1$ 
HALT 

BR 1$ 


E 6 
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SEQ 0069 


E A. 
SET CRAM WRITE 
:DISABLE CRAM. 
UPDATE CRAM ADDR. 
;ALL DONE? 
;NO LOOP. 
;CLEAR CRAM ADDR 
GET MICRO CODE ADDR. 


he CRAM 


A OK? 
NO. - REPORT AN ERROR. 
ALL DONE? 
:YES = EXIT 
;NO = DESELECT CRAM. 
[UPDATE CRAM ADDR. 


sRESTORE RO 
sRESTORE R4 
sEXIT 


;COME HERE ON LOAD ERROR 


4 ig ERROR COUNTER. 

:1F NOT TOO MANY, TRY AGAIN. 

‘MICRO "CODE LOAD ERROR. 

3KMC-11 FAULT. YOU COULD TRY 

;TO PRESS CONTINUE TO GIVE IT 
:ANOTHER CHANCE, BUT I DOUBT 

THAT THAT WOULD WORK. SINCE I'VE 
TALREADY GIVEN IT 177 (OCTAL) CHANCES. 
sTRY RUNNING THE KMC-11 DIAGNOSTIC. 


>*THIS ROUTINE ISSUES A WRITE COMMAND TO THE LPA-11 
® 


sd CALL = JSR 

* - WOR 
. - WORD 
® 


MOV RO,-(SP) 
MOV (5)+,R0 


BIS #340,R0 

JSR PC, SLPW 
MOV RO,W1 

MOV RO ,@KMAD4 
MOVB #5 ,,aKMAD2 
JSR PC, SL PW 

MOV (5) ,We 

MOVB (5)+*,@KMAD4 


R5,$TLKW 
0 OFFSET OF DEVICE ADDR. 
0 ;DATA TO BE WRITTEN 


;SAVE RO 

GET DEVICE OFFSET 

;ADD WRITE CODE. 

;WAIT FOR FAST PATH READY 


ISSUE FAST PATH WRITE 
:WAIT FOR RDY 


;WRITE LOW BYTE DATA. 


F 6 
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RAP TABLE 


CRLPFC.P11 28-OCT-80 09:03 1 SE0 0070 
(2) 021316 112777 000005 160042 MOVB «#5 ,aKMAD2 “FP WRITE 
(3) 031322 004737 021530 JSR PC SLPW 
3) 031396111537 021360 Move (55.03 
(2) 021332 112577 160032 MOVB (5)+,aKMAD4 sWRITE HIGH BYTE 
| (3) 031336 113777 000005 160020 MOVB #5 .akMAD2 
|B) 031864 004737 021530 JSR PC SLPW 
(3) 021350 012600 MOVs (SP) + .RO 
(3) 021352 000205 RTS «RS “EXIT DONE. 
(5) 091354 000000 7 
| (3) 021356 000000 v2: 0 
(5) 021360 000000 a | 
(2) 
(2) ;* 
i$) s*THIS ROUTINE ISSUES A READ COMMAND TO THE LPA-11 
*® 
| (2) ;* CALL = JSR RS,S$TLKR 
(2) 3 ~ WORD 0 sOFFSET OF DEVICE 
(2) ;* sRETURNS HERE 
(2) :*DATA IN WORD SDATR 
(3) ; 
(3) 021362 010046 STLKR: MOV RO,-(SP) :SAVE RO 
(2) 021364 012500 Movs (554, RO “GET OFFSET 
(3) 021366 052700 000300 BIS #300;RO “ADD READ CODE 
(2) 021372 004737 021530 JSR PC,$LPW sWAIT TILL READY 
(3) 021376 110077 157766 MOVB RO aKMAD4 
(5) 021402 112777 000005. 157754 MOVB #5 -aKMAD2 SISSUE WRITE FP 
(2) 021410 004737 021530 JSR. PC SLPW 
(5) 091414 010037 021524 MoV —s«ROLRDI 
(3) 021420 1$: 
43 021420 004537 022016 JSR R5, $TOUT s-TOUT-CHECK FOR TIMEOUT 
(5) 021424 104000 ERROR ;/TIME-OUT ERROR 
(3) ;/WE FAILED TO COMPLETE 
(3) ;/CURRENT OPERATION. 
(3) :/CONTINUES IN THIS LOOP 
rH :/WOULD MAKE US ‘‘HANG'' HERE 
(3) 021426 000774 BR 1s 
(3) ;/RETURNS HERE-FROM-TIMED OUT. 
(2) 021430 032777 000040 157722 BIT #B1T5,aKMADO sFAST PATH GOT DATA? 
(3) 021436 001370 BNE ‘18 
(2) 021440 112777 000004 157716 MOVB #4 ,aKMAD2 s ISSUE FAST PATH READ 
(2) 021446 004737 021530 JSR PC SLPW 
(2) 091452 117787 157712 021526 HOVB @KMADG.S$DATR «GET LOW BYTE 
ty 021460 004537 022016 JSR R5, $TOUT ;~-TOUT-CHECK FOR TIMEOUT 
(3) 021464 104000 ERROR ;/TIME-OUT ERROR 
(3) “/WE FAILED TO COMPLETE 
(3) ;/CURRENT OPERATION. 
(3) “7CONTINUES IN THIS LOUP 
Ce :/WOULD MAKE US ‘HANG’ HERE 
(5) 
(3) 021466 000774 BR 28 


LPA DRI1-K LOGIC TEST MD-11-CRLPF-C 


CRLPFC.P11 


Pe Ae te Ee ti et te i a ee he i ee i i te i i i i i i ee 
POPIPINPSNYA. POMIPIPIPY NING MI NPINPI MMPI PU NIM NIM PI NIP MN NMNNNNWNNVWNW 
wwe we we we we we we we we we a we a ee a we we ee we ew a we a we eww a a 


jefofefoflefolololq) 


021530 


021550 
021552 


021566 


021570 
021572 


021574 


021620 


021620 
021622 


23-0CT-80 09:03 


032777 


000000 


010146 
005001 
122777 
001403 
005201 
001372 
000411 


032777 
03 


000402 
012601 
000207 


104401 
000407 


000000 
000776 


000040 


060004 
021530 
157652 


000377 


000020 


021602 


157662 
157656 
021527 


157622 


157600 
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TRAP TABLE 


RD1: 
SDATR: 


$LPwW: 
1$: 


2%: 


;/RETURNS HERE-FROM-TIMED OUT. 
BIT — SFAST PATH READY? 


MOVB Se oy gy ISSUE FAST PATH READ 
, SL PW 
MOVB Q@KMADG ,SDATR+1 ;SAVE HIGH BYTE 
MOV (SP)+,RO 
R5 
0 
-WORD 0 


> THIS ROUTINE WAITS FOR KMC-CODE TO BECOME READY AS WELL 
[AS FAST PATH TO BE READ. 


: CALL = JSR PC, SLPW 


“IT WILL TIME OUT IF TOO MUCH TIME IS TAKEN BY 
“THE MICRO-PROCESSORS AND REPORT AN ERROR, THEN HALT. 


— tea 7 SAVE R1 

CL 

CMPB #377 ,aKMAD2 sFINISHED INSTRUCTION? 
BEQ 2$ 

INC R1 sTIME OUT? 

BNE 1$ 

BR 10$ 

BIT #BI1T4,aKMADO FAST PATH READ? 

BEQ 3$ 

INC R1 3NO - TIME OUT? 

BNE 2$ 

aR 10% ;YES - REPORT AN ERROR 
MOV (SP)+,R1 RESTORE R1 

RTS PC EXIT 

TYPE nt 37 TYPE ASCIZ STRING 


BR 64$ :;GET OVER THE ASCIZ 
.ASCIZ <200>#LPA-11 FAULTS 


HALT ;LPA-11 FAULT RUN LPA-11 
BR 11$ DIAGNOSTICS. 


SATHIS ROUTINE PROVIDES THE LINKAGE FROM USER CODE T0 
zon DEVICE ADDRESS ON THE I/0 BUSS FOR WRITE ONLY. 


e FIRST WE WILL DETERMINE IF THE ADDRESS HAS BEEN USED 
3* BEFORE. IF NOT WE HAVE TO INITIALIZE THE LPA WITH 
;* THAT ADDRESS. 


SEQ 0071 
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CRLPFC.P11 23-0CT-80 09:03 TRAP TABLE SEQ 0072 
(2) :* WHEN THE ADDR. IS KNOWN BY THE LPA, DO THE OUTPUT BY 
(2) 3* STLKW 
(3) a 
(2) 021624 010046 SOUTLP: MOV RO,-(SP) SAVE RO 
+s 021626 010146 MOV R1,-(SP) sSAVE R1 
(2) 021630 012700 001406 MOV #.DVLS,RO ;PROGRAM DEFINED LIST. 

(2) 021634 005001 CLR R1 

(2) 021636 005710 1$: TST (0) ; TERMINATOR es 

(2) 021640 001421 BEQ 10$ sYES NEXT ST 

(2) 021642 027520 000000 CMP a(5),(0)+ *MATCH WITH coer IN LIST? 
(2) 021646 001402 BEQ 2$ 

(2) 021650 005201 INC R1 

i$) 021652 000771 BR 1$ 

(2) 021654 010137 021672 2$: MOV R1,3$ SAVE OFFSET, DEVICE KNOWN. 
(2) 021660 005725 TST (5)+ 

(2) 921662 013537 021674 MOV a(5)+,4$% 3GET DATA TO BE WRITTEN 
(2) 021666 004537 021246 JSR RS, $TLKW 7D0 WRITE 

(2) 021672 000000 3$: -WORD 0 sDEVICE OFFSET 

(2) 021674 000000 4$: «WORD 0 ‘DATA TO BE WRITTEN. 

(2) 021676 012601 MOV (SP)+,R1 

(2) 021700 012600 MOV (SP)+,RO 

(2) 021702 000205 RTS R5 

(2) 021704 017520 000000 10$: MOV a(5),(0)+ SAVE ADDR. 

(2) 021710 005010 CLR (0) 

(2) 021712 004537 020416 JSR R5,$LPAI 

(2) 021716 001406 WORD .DVLS 

(2) 021720 000755 

(2) 

(2) 3 

(2) s*THIS ROUTINE PROVIDES THE LINKAGE FROM USER CODE 
7 :#T0 A DEVICE ADDR. ON THE 1/0 BUSS FOR READ ONLY. 
(2) ‘FIRST WE WILL DETERMINE IF THE ADDRESS HAS BEEN 
(2) ;*USED BEFORE. _ WE HAVE TO INITIALIZE THE LPA 
(2) s*WITH THE NEW A 

44 ea THE ADDR B. KNOWN WE CAN DO OUTPUT THROUGH 
( >*$TLKR 

(2) te CALL wna MOVE] DATA,ADDR. 

(2) st WHICH EQUALS: 

(2) SS JSR RS,SINLP 

(2) :t «WORD XX ADDR OF DEVICE 
4H i* «WORD YY ADDR TO STORE READ DATA. 
(2) 

(2) 021722 010046 SINLP: MOV RO,-(SP) SAVE RO 

5 fs 021724 010146 MOV R1,-(SP) sSAVE R1 

(2) 021726 012700 001406 MOV #.DVLS,RO sPROG DEFINED ADDR. LIST. 
(2) 021732 005001 CLR R1 

(2) 021734 005710 1$: TST (0) ;EOL REACHED? 

cs) 021736 001420 BEQ 10% YES - DEFINE NEW ADDR. 

(2) 021740 027520 000000 CMP a(5),(0)+ ;ADDR. MATCH? 

(2) 021744 001402 BEQ 23 
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CRLPFC.P11 23-OCT-80 09:03 TRAP TABLE SEQ 0073 
(2) 021746 005201 INC R1 
‘$} 021750 000771 tae 1$ 
(2) 021752 010137 021764 23: MOV R1,3$ :SAVE LIST OFFSET 
(2) 021756 005725 TST (5)+ 
(2) 021760 004537 021362 JSR R5,STLKR 3GO READ DEVICE 
(2) 021764 $SOFS=. 
ost 021764 000000 3$: ~ WORD 0 sOFFSET OF DEVICE 
(2) 021766 013735 021526 MOV SDATR,a(5)+ sSTORE DATA. 
(2) 021772 012601 MOV (SP)+,R1 sRESTORE R1 
(2) 021774 012600 MOV (SP)+,RO RESTORE R2 
3} 021776 000205 RTS RS sEXIT 
(2) 2000 017520 000000 108: MOV a(5),(0)+ 
(2) 022004 005010 CLR (0) 
(2) 022006 004537 020416 JSR R5S,$LPAI 
(2) 022012 001406 «WORD .DVLS 
4h 022014 000756 Be 28 
(2)  S$TOUT ROUT INE USED TO WATCH IF 
(2) ie WE'RE IN A LOOP TOO-LONG 
(2) ;* CALL= JSR RS, $TOUT 
(2) :* ERROR x RETURNS HERE ON TIMEOUT 
(2) 3* BR 
(2) 3t RETURNS HERE NO ERROR 
(3) a 
(2) 022016 020537 022052 $TOUT: CMP R5,$SAD SAME ADDR? 
(2) 022022 001405 BEQ 1$ 
(2) 022024 010537 022052 MOV R5,$SAD sNO-SAVE THIS ADDR. 
(2) 022030 005037 022054 CLR SCNT :CLR CNT AT ADDR. 
(2) 022034 000403 BR 23 
(2) 022036 005237 022054 1$: INC SCNT sOVERFLOW? 
(2) 022042 100402 BMI 3$ sYES-ERROR RETURN 
(2) 022044 062705 000004 2$: ADD #4,R5 :NO-NON ERROR RETURN 
= 022050 000205 3$: RTS R5 RETURN. 
(2) 022052 000000 $SAD: -WORD 0 ;CONTAINS LOOP ADDR. 
* 022054 000000 SCNT: ~ WORD 0 3# OF TIMES AT ADDR. 
(2) 
(2) ie © THIS ROUTINE REPLACES WHAT THE USER WOULD ORDINARILY 
(2) + #USE FOR A RESET. FIRST.WE DO A RESET INSTRUCTION. 
(2) s*THEN WE CLR “DVLST" WHICH FORCES US TO RESET BOTH THE 
ig} ; sKMC AND DMC AS SOON AS A DEVICE IS REFERENCED. 
(2) 2 CALL=JSR PC,SRESET sREPLACES ‘‘RESET INSTRUCTION 
ah 7% ;RETURNS HERE. 
** 
(2) 022056 000005 SRESET: RESET ;RESET THE WORLD. 
(3) 4 MOV a2$,1$ ;/READ DEVICE > Ag PUT DATA IN 1$. 
(2) 022070 005737 021104 TST SAERR 7:1 NO ERROR,LOOP 
(2) 022074 001004 BNE 10% : THERE Sea AN ERROR. 


(2) 022076 062737 000002 022112 ADD #2,2% UPDATE DEVICE ADDR. 


J 6 
LPA DRI1-K LOGIC TEST MD-11-CRLPF=C MACY11 306(1063) 24-OCT-80 09:34 PAGE 5-36 
CRLPFC.P11 23-0CT-80 09:03 TRAP TABLE SEQ 0074 


(2) sYOU SEE ,WE HAVE TO PROTECT OUR SELF! 

(2) s1F 2$ CONTAINED A VALID ADOR,WE 

(2) ‘MUST KEEP TRYING UNTIL WE GENERATE 

(2) sAN INVALID ADOR. 

(2) 022104 000764 BR SRESET 

(2) 022106 10$: 

(2) 022106 000207 RTS PC 

(2) 022110 000000 1$: WORD 0 ; JUNK LOC. 

s 022112 160000 2$: . WORD 160000 :DUMB ADDR. FORCES INIT OF DMC/KMC. 

(2) 

(2) 

(2) : SDELAY- ry lt TO GIVE A MINOR DELAY. 

(2) ; IS NOT TIME DEPENDENT CODE SENCE 

(2) ; NOT USED TO GET SPECIFIC TIME BUT 

i$} 3 JUST A LITTLE DELAY. 

(2) ; THAT IS UNLESS A REAL TIME CLOCK IS PRESENT! 

3 . THEN WE'LL GENERATE A TIME BETWEEN 16MS TO 32 MS 

(2) ; 

yh : CALL= JSR PC, SDELAY 

(2) 022114 SDELAY: 

(2) 022114 005737 022176 TST RTCCSR sCLOCK PRESENT? 

(2) 022120 100016 BPL 10$ 

(2) 022122 012737 000002 022166 MOV #2,TIME 

(2) 022130 052777 000115 000040 BIS #115, aRTCCSR sSTART CLOCK 

(2) 022136 005037 177776 CLR PS 

(2) 022142 005737 022166 1$: TST TIME 

(2) 022146 001375 BNE 1$ 

yt 022150 005077 000022 CLR A@RTCCSR sSTOP CLOCK 

P 

(2) 022154 000207 RTS PC 

(2) 022156 105237 022166 10$: INCB TIME 

(2) 022162 001375 BNE 10% 

oe 022164 000207 RTS PC 

< 022166 000000 TIME: -WORD O 

(2) 022170 005337 022166 CLKINT: DEC TIME 

(2) 022174 000002 RTI 

o 022176 000000 RTCCSR: .WORD 0 sCLOCK CSR IF USED. 

(2) 3* 

(2) s*THIS MACRO ALLOWS THE OPERATOR TO TALK TO 

(2) s*ANY DEVICE ON THE 1/0 BUS 

(2) > *USER MUST START AT THIS ADDR 

s seHE AUST SA SAY oa ""E’’ FOR EXAMINE, OR ‘'D’’ FOR DEPOSIT. 
*® 

(2) T*NEXT, HE FAUST SUPPLY AN ADDR. 

(2) S*NOTE IF ADDR. IS NOT FOUND ON I/O BUS, A HALT 

tg} T*WILL OCCUR. 

(2) 022200 SUTK: 

(2) 022200 005037 001406 CLR -DVLS 


cc - 
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| 


4 


104401 
000405 


Swwnen — 
NMEONOfSL OF 


001411 


022270 004537 
022274 022352 
022276 022310 


022300 013746 
022304 104402 
022306 000736 
022310 000000 


022312 
22312 = 104401 
022316 00404 
022330 
022330 104412 
022332 012637 


2336 004537 


i i et ee tt 


022346 000716 
022350 000000 

000000 
022354 100001 


022362 042503 
022370 036522 


ee a ses St ttt ttt latetataiainiolataintatststatatlatlatleatetatatataialaleieate 
POPIPOPONO NON PURDS — @ POPUP NOMUNIPUNINONONOR MPNMNM WWW PUNO WWW PUPP fone nm nrnrnrnrnrnrnr 


eee ee ee a ee ee ee a ee ee ee le es ee ae 
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MD-11-CRLPF-C 


022212 


156714 
156710 
022354 
000240 
022352 
022354 


021722 


022310 


022320 


022350 
021624 


042504 
040440 
000040 


022354 
022354 


000104 


044526 
042104 
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218: 
TYPE ,65$ zi; TYPE ASCIZ STRING 
BR 64$ ::GET OVER THE ASCIZ 
iig?** eASCIZ <200>#E OR D024 
1$: TSTB astTKs 
BPL 1$ 
MOVB asTKB,cO$ 3;GET INPUT 
TYPE, 208 sECHO, NEXT MESSAGE. 
BICB #240,20$ sSTRIP PARITY, LC 
RDOCT :GET ADDR. 
MOV (SP)+,14$ 
CMPB 20$,#'°D ;DEPOSIT? 
BEQ 10$ 
JSR RS,$INLP ;GET DATA 
e$ -WORD 14% 
-WORD 5% 
MOV 5$,-(SP) :;SAVE 5$ FOR TYPEOUT 
TYPOC 3:G0 TYPE=--OCTAL ASCII(ALL DIGITS) 
BR 21$ ;LOOP. 
5$ -WORD 0 
10$: 
TYPE ,67$ 33 TYPE ASCIZ STRING 
BR 66$ ::GET OVER THE ASCIZ 
>:67$: .ASCIZ <200>#DATA= # 
66$: 
RDOCT 
MOV (SP)+,13$% 
11$: JSR R5,SOUTLP sOUTPUT ROUTINE. 
12$: -WORD 14% ;DEVICE ADDR. 
-WORD 13% sDATA 
BR 21% 
13$: -WORD 0 
14$: -WORD 0 
208: eASCIZ <1><200>#DEVICE ADDR= # 
EVEN 


THIS ROUTINE LOOKS THROUGH CURENT .DVLS FOR A/D ADDR. 
71F UNFOUND,GENERATES IT. THIS ROUTINE'S WHOLE PURPOSE IS 
3TO SET UP THE USER PROGRAM TO LINK TO FILE ‘‘DRLPX2"’ FOR 
;SAMPLE TAKEING PURPOSES. 
: TO TAKE SAMPLES, THE USER PROGRAM MUST SET UP 
: A/D CSR_IN BSEL 4,AND 5. 
(2) HE MUST CALL THIS ROUTINE: 
JSR R5,$PUTS 
-WORD ADCSR sADDR. OF A/D CSR. 


;CALL SET UP ROUTINE. 


SEQ 0075 
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(2) ; :RETURNS HERE sKMC BSEL 3,6,7 PERMINENTLY SET UP 
() ; s (UNTILL ONE DOES A RESET) 
(2) : (3) THE USER MUST PUT CODE 006 INTO KMC REG 2 TO 
(2) : START CONVERSION CAUTION®DO WITH MOVB INSTR.! 
(2) : (G)MONITOR KMC REG 2 FOR CODE 377 (DRLPX2 IS DONE) 
(2) : (S)READ KMC REG 4,5 FOR A/D RESULT. 
(2) ; (6) TO TAKE MORE SAMPLES,SIMPLY PUT A/D CSR INTO 
s : BSEL 4,5 AND CODE 6 INTO BSEL 2. 
(2) 022374 012537 022404 SPUTS: MOV (5)+,1$ :GET ADDR OF ADDR. OF A/D 
(2) 022400 004537 021722 JSR R5,$iNLP 
(2) 022404 000000 1$: “WORD 0 
(2) 022406 022502 “WORD 108 
(2) 022410 113777 021764 156756 MOVB  $0FS,aKMAD6 
(2) 022416 113777 021764 156752 MOVB  $OFS,aKMAD7 
(2) 0224246 013737 022404 022444 MOV 1$,2$ 
(2) 022432 062737 000002 022444 ADD #2,2$ 
(2) 022440 004537 021722 JSR RS.SINLP 
(2) 022444 000000 2$: “WORD 0 
(2) 022446 022502 “WORD 108 
(2) 022450 113777 021764 156710 MOVB $OFS,@KMAD3 
(2) 022456 152777 000340 156710 BISB #340, aKMAD6 
(2) 022664 152777 000300 156704 BISB #300.aKMAD7 
(2) 022472 152777 000300 156666 BISB  #300,aKMAD3 
(2) 022500 000205 RTS R5 
2) 022502 000000 108: . WORD 
2082 042000 =42000 
2083 sHERE RESIDES THE “MICRO CODE TO BE LOADED INTO THE KMc-11 
2084 042300 =42300 :FREE LOCATION AFTER MICRO-CODE 


66 
2087 000001 - END 
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CRLPFC.P11 

BEGIN] 001554 
BITO = 000001 
B1T0O = 000001 
BIT01 = 00000 
BITO2 = 000004 
BITO3S = 000010 
BIT04 = 000020 
BITOS = 000040 
BIT06 = 000100 
BITO7 = 000200 
B1T08 = 000400 
B1TO09 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BITS = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT? = 000200 
BIT8 = 000400 


C 1456 
CR = 000015 
CRLF = 0002 


DFO 015370 
DH1 015036 
DH10 015247 
DH2 015106 
DHS 015154 
DHS 015222 
DIOBRL 001522 
DISPLA 001142 
DISPRE 000174 
DRADD 001464 


23-0CT-80 09:03 


PRD IRD IRD tr a 8 od ot ot = = = = = = = = 
f\) OD CD CD OD OD OD OD OD 0D OD OD OD OD CD OD OD OD CD OD CD CD CD CD CD CD CD CD CD CD CD ~O 
POS DOT TIO 

BVRBRRBRBBRBRBBBBVBBBVBVBVBVBVBVBVBVEBVBVEBVBVZVTBVVEBVZTE=Z 


MMM & | —WMOCOVDOWO”DO 
BOVEWOVUNTA I AOWES 
222 2B = F 


MM — —roPreonror 
te > pe tw 


13014 
1535 


NONO—-WO 
MmOforn 


43 


ww 
ue 
22 


et et os TTY) PY) NY ND 
~ 
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WWSNMOO 
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oo 
Www 
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oa 
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2072 
1550 


2066 
1910 
1693 


2018 
1896 


1883 


1728 


1960 


2065 
2081 


1916 


1220 


1237 
2066* 


1460 
1466 


1763 1790 1914 1964 


2081 


1739 1751 1790* 1794 
1949 1957* 1964* 1968 


1226 1232 1239 1245 


20568 


1462 1464 2001* 2005* 
1467 1469 1471 2002* 


1251 


2059 
2006* 


1811 1813* 1914* 
1977 1980 1994* 
20624 

2060 2061 


SEQ 0078 


1918 
2061 
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CRLPFC.P11 23-0CT-80 09:03 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0079 
DSWR = 177570 11854@ 1196 1303 
dT1 015326 1201 1207 1213 20594 
015352 1244 1250 20614 
015342 1219 1225 1231 1238 20608 
000030 11854 1303* 
014416 1199 20444 
014676 1242 20514 
014761 1248 20524 
014447 1205 20454 
014477 1211 20464 
014530 1217 20474 
014562 1223 20484 
014615 1229 20494 
014642 1236 20504 
04 11854 = =1303* 1310* 1333* 1334* 2065+ 
013656 2018* 2029* 20344 
013654 2022 2023 2027 2028 20334 
013476 1191 20164 
serene YJ 1188 1341 1345 1407 1410 2079 2081 
001504 1272 = =1464* 1465* 
001500 1270# 1460* 1461* 1484 1594 1645 1649 1657 166% 1669 1673 1681 1685 
1700 1704 1713 1717 1738 1750 1767 1777 1782 1784 1792 1805 1810 
1812 1822 1833 1850 1860 1871 1876 1901 1921 1948 1950 1971 2022 
2023 2027 2028 
001502 12714 = =61462* = 1463" = 1485 1490 1491 1498 1500 1508 1509 1517 1518 1526 
1527 1538 1540 1541 1553 1555 1556 1567 1572 1573 1579 1584 1585 
1592 1644 1648 1656 1660 1668 1672 1680 1684 1698 1701 1703 1714 
1716 1737 1747 1749 1765 1775 1776 1791 1802 1803 1821 1833 1849 
1860 1870 1873 1886 1899 1920 1924 1926 1927 1929 1930 1932 1945 
1947 1970 1974 1976 1978 1979 1981 1982 2019 2021 2024 2026 
001512 1275#@ 1466" 1478* 
001516 1277# = 1469* = 1470* =: 11478 * 
001514 1276# =1467* 1468* 1478* 
001520 12784 = =61471% 861472 = 1478* 
001476 12694 1459* 1483 1596 1597 1604 1606 1607 1614 1615 1622 1624 1625 
1885 1888 1898 1903 1923 1935 1936 1938 1952* 1953 1973 1986 
104406 1341 20794 
00011 11854 2075 
001510 1274@ 1349" 1356* 1368 1918 1968 
3266 1340 1352 1359 1362 1392 14434 
003346 14564 
3506 1458 14748 
20 11854 1303* 
001540 12864 1299 1346+ 1353 
001360 12524 1304 2081* 
001362 12524 1304 
001364 12524  2081* 
001366 12524 2081* 
001370 12524 2081* 
001372 12524 
001374 12524 2081* 
001376 1252# 1304 2081* 
000012 11854 2075 
001470 12664 
001472 12674 
001474 12684 





Eee 
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LPA DR11-K LOGIC 52 MD-11 
kntere. P11 23-0CT-80 09:03 CROSS REFERENCE TABLE -- USER SYMBOLS 
LPADH 001372 12528 
LPADL 001370 12524 
LPCI 0013 12528 
LPCO 001364 12528 
LPMR 001 12528 
LPMS1 001374 12528 
LPMS2 001376 12524 
P 001366 12528 
MINSIN 001534 12844 8 1350* 1357" 1371 1378 1476 1710 
NBEXT 001462 12604 1446* 1997 2003*  2007* 
NMBEXT 001460 12594 1332* 1342 1446 2007 
NOTLCH 001506 1273@ =1348* 1355* 1365 1437 1696 1729 1734 1769 
ODDJMP 001532 12834 1475" 1476* 1477* 1650 1659 1662 1671 1674 
1732 1771 1796 1819 1846 1877 
IRQ = 177772 11854 
PIRQVE= 000240 11854 
PRO = 000000 11854 
PR1 = = 000040 11854 
PR2 = 000100 11854 
PR3 == 000140 11854 
PRG = 0002 11854 
PRS = 000240 11854 
PR6 = 000300 11854 
PR7 == 000340 11854 
PS = 177776 11854 2081* 
PSW == 177776 11854 
PWRMSG 016530 2072 20734 
PWRVEC= 000024 1185# 1303* 2072+ 
RBEG 001560 1300 13024 
RBEG1 002246 13354 
RBEG2 003314 1417 14474 2010 
RDCHR = 104410 2077 20794 
ROLIN = 104411 2076 20794 
RDOCT = 104412 1429 20794 2081 
RD1 021524 20814* 
RESVEC= 000010 11854 
RTCCSR 022176 20814* 
SDELAY 022114 20814 
SETADD 003360 1457 14594 2017 
STACK = 001100 11854 1303 2016 
STKLMT= 177774 11854 
$s 014307 1390 20424 
SWINTB 014017 1367 20398 
SWNLB) 013721 1364 1425 20384 
SWPOSB 014115 1370 20404 
SWR 001140 1196# 1303* 1322 1325 1341 1405 1412 1426 1430* 
1999 2065 2066 2072* 2077+ 
SWREG 000176 11884 1303 1341 1426 2077 
SWIRAB 014211 1373 20414 
SswO. = 000001 11854 
Ssw0O = 000001 11854 
SwO1 = 000002 11854 
SwO2 = 000004 11854 
SwO3 = 000010 11854 
$w04 = 000020 11854 
swOS = 000040 11854 


Re 
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1435 
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SEQ 0080 


1960 
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sw06 = 000100 1185¢ 

SwO7 = 000200 11854 
SwO8 = 000400 11854 
swO9 = 001000 11854 
Swi = = 000002 11854 

Swi0 = 002000 11854 

Swi1 = 004000 11854 

Swi2 = 610000 11854 1999 
Swi3 = 020000 11854 1322 
SW14 = 040000 11858 

$wi5 = 100000 11854 = §=1325 
SW2 = 000004 11858 

Sw3 = 000010 11854 

SW4 = =: 000020 11854 

SW5 == 000040 11854 

SW6 == 000100 11854 
SWw7 = = 000200 11854 
Sw8 == 0004 11854 
Sw9 = 001000 11854 

TALK 003202 1363 1366 
TBITVE= 000014 11854 

022166 20814* 

TKVEC = 000060 11854 
TPVEC = 00006 11854 
TRANST 001536 12854 1351* 
TRAPVE= 00 11854 1303* 
TRIVEC= 000014 11854 
TSTNUM 015406 2059 20606 
TST1 003564 14794 
TST10 =©004256 15484 
TST11 004364 15654 
TST12 004666 1575 15774 
TST15 005170 1587 15904 
TST14 005266 1599 16024 
TST15 005346 1609 16124 
TST16 ©0054 1617 16204 
TST17 =: 005470 1627 16404 
TST2 003640 14874 
TST20 0056 1652 16554 
TST21 005726 1664 16674 
TST22 006040 1676 16794 
TST23 006152 1688 16904 
TST24 1692 1725# 
TST25 0066 17614 

TST26 §©007016 17884 

TST27 0072 18154 

TST3 003710 1493 14954 
TST30 ©=—.01051 1840 18434 
TST31 011646 1867 18694 
TST32 © 011760 1879 18824 
TST33 © 012046 1890 18954 
TST34 012146 1905 19094 
TST35 = 012544 1911 19594 
TST36 «=. 013034 1961 19964 
TST4 003760 1502 15054 
TST5 004030 1511 15144 
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1405 
1412 


1369 


1358* 


2061 


1372 


1374 


20634 
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1389 


1380 


2066+ 


14228 


1477 


SEQ 0081 
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/CRLPFC. P11 23-OCT-80 09:03 

TST6 004100 1520. 15230 

TST? 004154 1533e 

‘TYPDS = 104405 2012 2079" 

TYPE = 106401 1324 1341 1345 
2072 2075 ~=—2077 

TYPOC = 104402 1409 2068 ~=— 2077 

TYPON = 104404 20798 

TYPOS = 104403 1343 2079 = 2081 

UNEXPT 003262 14408 1478 

VECTOR 001400 12520 

VECTPS 001402 12528 

VECTRP 002756 1333 -1395¢ 

VERSN 0014 12524 

W 021354 208 1## 

w2 021356 2081## 

W3 021360 2081## 

SAERR 021104 1315 2081#* 

SAPTHD 001000 1195# 

SASTAT= settee U 2078 

SATYC 020110 20784 

SATY] 020064 20784 

SATYS 020072 2075-20784 

SATY4 020102 20 20784 

SAUTOB 001134 11964 1336 1341* 

SBASE 001242 11964 1305 

SBDADR 001122 11964 

SBDDAT 001126 11964 1491 1492 
1556 1557 1558 
1625 1626 = 1649 
1687 1704 —-1705 
1805 1806 1835s 
1915* 1953* 1965* 

SCDWI 001246 1196# 

SCHARC 017054 2075#+ 

SCKSWR 017162 2077# 2079 

SCMTAG 001100 1196# 1303 1453 

SCM3. = 0000 11968 

SCNT 022054 20814* 

SCNTLG 020034 20778 

SCNTLU 020027 20778 

$C 001214 11968 

SCRLF 001163 1196 2066 2068 

SDATR 021526 20814 

SDBLK 013466 20134 

SDEVCT 001176 11964 

SDEVM 001244 11964 

SDOAGN 013226 20124 

$DTBL 013456 20134 

SENDAD 013216 1193 1341-20128 

SENDCT 013164 1303-2012" 

SENDMG 013235 20128 

SENULL 013232 20124 

SENV 001206 1196# 1341 2066 

SENVM 001207 1196# 1303-2075 

SEOP 013134 2008 20124 

SEOPCT 013156 1303« © 20128 


2075 


2066 


2075 
2078 


CROSS REFERENCE TABLE -=- USER SYMBOLS 


, 1424 1428 1432 2012 2013 
1 


2077 
1501 1509 1510 1518 1519 1527 
1574 1585 1586 1597 1598 1607 
1651 1661 1662* 1663 1673 1674* 
1718 1738 1739* 1740 1750 1751* 
1862* 1866 1876 1877* 1878 1888 
2061 
2077 
2078 


2066 


2068 


SEQ 0082 


2070 
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‘LPA DRI1-K LOGIC TEST MD-11 

CRLPFC.P11 23-OCT-80 09:03 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0083 

'SERFLG 001103 1196#  2065* 2066 

[SERMAX 001115 1196# 1303"  2065« 

SERROR 015602 1303 2066" 

SERRPC 001116 1196# 2059 2060 2061 2066* 2068 

SERRTB 001250 1196# 2068 

SERRTY 015774 2066 20684 

SERTTL 001112 1196#  2066* 

SESCAP 001160 1196# 1303" 2065* 2066 

SETABL 001206 11968 

SETEND 001250 1195 1196M 

SFATAL 001170 1196# 2078s 

SFFLG 020330 2078#* 

SFILLC 001156 1196# 2075 

$FILLS 001155 1196# 2075 

SGDADR 001120 1196# 

SGDDAT 001124 1196@ 1314 1377* 1378 1380 1386* 1488* 1492 1496* 1506* 1510 1515* 1519 
1525* 1526 1528 1531* 1535* 1539 1542 1546" 1550* 1554 1558  1562* 15660 
15671574 = 1578* «1579S «1586 «'1595* «1596 «= 1598 ~=—s 1605" «1606 = «1608 «= 1913" = 1614 
1616 1623* «= 1624 = 1626 =: 1646* «1651 = s«*1658* =: 1659 += 1660 =: 1663S «1670* «16 71" =: 1672 
1675 1682* +=«'1683* «1684 «= 1687) «*1693* «1694 = «1696 = 1698 ~=—1702,—Ss«1705-—Ss«sa1710~—S—s«*1715 
1718 1723" ««1731*® «=«1732,—=S's«d173402S«1737)~2S«1740)2«1748)~=—S 752% =«=«1763* «1769S s1771~Ss«21775 
1778 1783 1785" 1796 1799* 1800* 1801* 1802 1806 1817* 1818* 1819* 1820 
1839 1845+ 1846" © 1847* 1848 1866 1874 1883" 1889 1896" 1916* 1951*  1966« 

$GET42 013206 2012# 

$GTSWR 017232 2077# 2079 

$HD = 000000 1181 

$HIBTS 001000 11958 

$HIOCT 017160 2076#* 

SICNT 001104 1196 

SILLUP 01652 2072# 

SINLF 021722 1314 1491 1500 1509 1518 1527 1541 1556 1572 1573 1585 1597 
1607-1615. «1625. =s«*1649°='s«*1661— «1673 1685170121706) 1714S «1717—Ss«1738)S «1747 
1750 1777 1782 1805 1810 1833 1860 1876 1888 1901 1924 1927 
1930 1938 1945 1948 1974 1979 1986 2022 2027 2081" 

SINTAG 001135 1196# 2077 

SITEMB 001114 1196# 2066* 2068 

$LF 001164 1196# 2066 2075 2077 

$LFLG 020327 20784* 

$LOAD 021106 20814 

SLPADR 041106 1196#  1303*  2065« 

SLPAI (6.0416 20814 

SLPERR 001110 1196# 1303* 1524" 1534* 1549* 1726* 1762" 1789* 1913" 1963*  2065* 2066 

Pu =: 021530 20818 

$MADR1 001220 1196 

SMADR2 001224 11968 

SMADR3 001230 1196 

SMADR4 001234 1196 

SMAIL 001166 1195 1196 1303 1341 2065 2066 2075 

SMAMS1 001216 1196 

SMAMS2 001222 1196 

SMAMS3 001226 1196 

SMAMS4 001232 1196 

SMBADR 001002 1195# 

$MFLG 020326 20784* 

SMNEW 020052 20778 


G6 7 
LPA DRIi-K LOGIC TEST MD- i CRLPF=C = MACY11 306(1063) 24-OCT-80 09:34 PAGE 6-7 


CRLPFC.P11 23-0CT-80 09:0 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0084 
SMSGAD 001202 11964 2078+ 
SMSGLG 001204 11964 2078 
SMSGTY 001166 11964 2078* 
SMSWR 020041 1428 20778 
SMTYP1 001217 11964 

SMTYP2 001223 11964 

SMTYP3 001227 11964 

SMTYP4 001233 11964 

/SNULL 001154 11964 2075 
“SNUTST= 000001 1 


77# §=6=©15908 16024 
15a 


161 
| 1620 16408 16554 16678 18434 18698 188 


| 
SOCNT 016352 20704* 
‘$OFS = 021764 20814 
|SOMODE 016354 2070#* 
SOUTLP 021624 1483 1484 1485 1490 1498 1508 1517 1526 1538 1540 1553 1555 1567 
1572 1579 1584 1592 1594 1596 1604 1606 1614 1622 1624 1644 1645 
1648 1656 1657 1660 1668 1669 1672 1680 1681 1684 1698 1700 1703 
1713 1716 1737 1749 1765 1767 1775 1776 1784 1791 1792 1802 1803 
1812 1821 1822 1833 1849 1850 1860 1870 1871 1873 1885 1886 1898 
1899 1920 1921 1923 1926 1929 1932 1935 1936 1947 1950 1970 1971 
1973 1976 1978 1981 1982 1984 2019 2021 2023 2024 2026 2028 20814 
SOVER 015566 20654 
SPASS 001174 11964 1303* 2012* 
SPASTM 001006 11954 
SPUTS 022374 20814 
SPWRAD 016516 20724 
SPWRON 016356 130 20728 
SPWR 16512 20728 
SPWRUP 016430 20724 
S$QUES 001162 1196# 2066 2075 2077 
SRDCHR 017444 20774 2079 
SRODEC= eeeeee 2079 
SRDLIN 017564 2077" 2079 
$RDO 017060 20764 2079 
$RDSZ = 000007 20774 
SRESET 022056 1335 1443 1447 1456 1499 1875 20814 
SRTNAD 013230 20124 
SR2A = eeeere 
$SAD 022052 20814* 
SSAVRE= teeeee YJ 
SSAVR6 016526 20724* 
SSCOPE 15410 20654 
$SETUP= 13 12344 1303 1341 2012 2065 2066 2077 
$STUP = 177777 12344 
SSVLAD 015532 20654 
$SvPC = 000220 11934 
$SWR = 161400 11548 1181 1186 1196 1303 1479 1487 1495 1505 1514 1523 1533 1548 
1565 1577 1590 1602 1612 1620 1640 1655 1667 1679 1690 1725 1761 
1788 1815 1843 1869 1882 1895 1909 1959 1996 2012 2065 2066 2072 
SSWREG 001210 11964 1303 
SSWRMK = 1186 2065 
STESTN 001172 1196#  1480*  2065* 
$TKB 001146 11964 2077 2081 
$TKS 001144 11964  2077* 2081 
STLKR 021362 20814 


LPA DR11-K LOGIC TEST MD-11-CRLPF-C 


CRLPFC.P11 


STLKW 
STMDAT 


021246 
001542 


000037 


022016 


000000 
016353 


eereee 


042300 
001406 


eeeeee 


001000 


23-0CT-80 09:03 


=a 2s = 


oe oe ss ss 
WOOuU— OOO OOONOnuiw 
SMA WM NWN NO LOO 
onuu— tiinties iee b ie | 


— os os a )  - 


2012* 


2079 


1308 


11948 


20748 
2081* 


2065* 


11954 
2075 


H 7 
MACY11_ 30G6(1063) 24-OCT-80 09:34 PAGE 6-8 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1483 1484 1485 1489* 1490 1497* 
1539* 1540 1552* 1553 1554* 1555 
1604 1621* 1622 1644* 1645* 1647* 
1699* 1700 1701 1702* 1703 1712¢ 
1764* 1765 1766* 1767 1776* 1782 
1812 1821* 1822* 1833* 1849* 1850+ 
1886 1897* 1898 1899 1901 1902 
1927 1928* 1929 1930 1931* 1932 
1947 1948 1949* 1950 1970* 19718 
da 1980* 1981 1982 1983* 1984 
1493 1495# 1502 1505# 1511 15144 
1587 15904 1599 16024 1609 16128 
1667# 1676 16794 1688 16904 1692 
18694 1879 18824 1890 18954 1905 
2066 

1196# 12524 1303 13418 14078 2012 
2077# «2078 20818 20824 20848 


20138 


2065 


SEQ 0085 


—. nrmowee nr wes Oo ee ws 
Ww OCOWOoOd@ynNoOuvn 
N Oo 
— 
ry 


2066 


menetahcendindiigeacilbonpe - : 
63) 24-OCT-80 09:34 PAGE 7 


‘LPA DR11-K LOGIC TEST MD-11-CRLPF-C MACY11 306(10 
CRLPFC.P11 23-0CT-80 09:03 CROSS REFERENCE TABLE -=- MACRO NAMES SEQ 0086 
| 
‘CLERIN 16354 1645 1657 1669 1681 1792 1822 1850 1871 1921 1971 
CLEROT Ney ieee 1656 1668 1680 1776 1791 1803 1821 1833 1849 1860 1870 1920 1970 
CLRVCT 12894 1478 
COMPEN 11854 
ENDCOM 11854 
ERROR 11854 1382 1440 1494 1503 1512 1521 1530 1544 1560 1576 1588 1600 1610 1618 
1628 1653 1665 1677 1689 1707 1720 1742 1755 1780 1808 1841 1868 1880 1891 
1906 1941 1955 1989 2081 
ESCAPE 1185# 
GETPRI 1185¢ 
GETSWR 11584 11854 13414 
MOVE I 170# 1314 1491 1500 1509 1518 1527 1541 1556 1572 1573 1584 1585 1597 1607 
1615 1625 1649 1661 1673 1685 1701 1704 1714 1717 1738 1747 1750 1777 1782 
1805 1810 1833 1860 1876 1888 1901 1903 1924 1927 1930 1938 1945 1948 1974 
1979 1986 2022 2027 2081 
MOVEM 157# 1483 1484 1485 1490 1498 1508 1517 1526 1538 1540 1553 1555 1567 1572 
1579 1584 1592 1594 1596 1604 1606 1614 1622 1624 1644 1645 1648 165€ 1657 
1660 1668 1669 1672 1680 1681 1684 1698 1700 1703 1713 1716 1737 1749 1765 
1767 1775 1776 1784 1791 1792 1802 1803 1812 1821 1822 1833 1849 1850 1860 
1870 1871 1873 1885 1886 1898 1899 1920 1921 1923 1926 1929 1932 1935 1936 
phot 1950 1970 1971 1973 1976 1978 1981 1982 1984 2019 2021 2023 2024 2026 
LT 11854 
NEWTST 11854 1479 1487 1495 1505 1514 1523 1533 1548 1565 1577 1590 1602 1612 1620 
‘See 1655 1667 1679 1690 1725 1761 1788 1815 1843 1869 1882 1895 1909 1959 
POP 11854 2013 2072 2076 2078 
PUSH 11854 2013 2072 2076 2078 
REPORT 11854 
SCOPE 11854 1479 1487 1495 1505 1514 1523 1533 1548 1565 1577 1590 1602 1612 1620 
+ 2 1673 1667 1679 1690 1725 1761 1/88 1815 1843 1869 1882 1895 1909 1959 
SETPRI 11854 
SETTRA 20798 
SETUP 11854 1303 
SKIP 11854 1493 1502 1511 1520 1529 1575 1587 1599 1609 1617 1627 1652 1664 1676 
1688 1692 1741 1754 1779 1807 1840 1867 1879 1890 1905 1911 1919 1940 1954 
1961 1969 1988 
SLASH 11854 
SPACE 11854 
STARS 11854 1193 1195 1196 1479 1487 1495 1505 1514 1523 1533 1565 1577 1590 
1602 1612 1620 1640 1655 1667 1679 1690 1725 1761 1788 1815 1843 1869 1882 
424 1909 1959 1996 2012 2013 2065 2066 2068 2070 2072 2076 2077 2078 
SWRSU 11854 13034 
OUT 12524 2081 
TRMTRP 20798 
TYPBIN 11854 
TYPDEC 11854 2012 
TYPNAM 8 1185@ 1341 
TYPNUM 11854 
TYPOCS 11854 
TYPOCT 11854 2068 2077 2081 
TYPTXT 11854 1345 1407 1410 2081 
SCAL. 7484 2081 


e 


LPA DR11-K LOGIC TEST MD-11-CRLPF-C 
23-0CT-80 09:03 


‘CRLPFC.P11 
‘SOMAST = 9148 
'SDMDT 10484 
SMMAST §——7728 
SSCMRE 1196 
SSCMTIM = 11968 
SSESCA 11858 
SSNEWT = 11858 
1640 

1996 

$$SET 20794 
S$SETM = 13034 
$$SKIP 11858 
1692 

EQUAT 1156 
“HEADE 11568 
“KMADR 55 
“KSIS 184 
-LOADL = 459# 
“LPAIN 209 
-PUTCS 418 
“RESET 3298 
“SETUP 11578 
.SWRHi 11588 
“SWRLO 11864 
“UTK 6998 
“SACT1. 11594 
SAPTB 11598 
$APTH 11598 
SAPTY 11598 
SSCATC «= 11568 
SCMTA 11568 
SEOP = 11568 
“SERKO 11568 
SERRT 11588 
“SINLP 652 
“SMMAC 1418 
-SOUTL 6108 
“SPARM = 11578 
$POWE 11578 
$RDOC 11584 
$READ 11578 
SSAVE 11578 
$SCOP 11578 
“SSPAC | (11578 
.$SwD0 11578 
STLKW S118 
[STOUT 12524 
“STRAP (11578 
TYPD «11584 
$TYPE 11568 
:STYPO | 11568 
. ABS. 042300 


1487 
1667 


1502 
1867 


2075 


CON 
CON 


RW 
RW 


A 
MACY11 306(1063) 24-OCT-80 09:34 PAGE 7-1 
CROSS REFERENCE TABLE -- MACRO NAMES 


ABS 
REL 


GBL 
LCL 


Dd 
I 


1523 1533 1548 
1761 1788 1815 
1587 1599 1609 
1911 1961 


1617 


1577 
1869 


1627 


1590 
1882 


1652 


1664 


1676 


SEQ 0087 


7 
‘LPA DRIT-K LOGIC TEST MD=11-CRLPF-C = MACY11 306(1063) 24-0CT- -80" s = PAGE 7-2 
CRLPFC. P11 23-0CT-80 09:03 CROSS REFERENCE TABLE -=- MACRO NAMES SEQ 0088 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


CRLPFC,CRLPFC/CRF=CRLPAB.MAC,CRLPFC.P11 
RUN-TIME: 24 14 1 SECONDS 

RUN-TIME RATIO: 83/40=2.0 

CORE USED: 35K (69 PAGES) 


BRLES ESS OR TERT S Rae, | nee tees ES 


rc--_-—- ——— 


j L 7 
‘DRLPX2( IMAGE) MICRO CODE DEFAULT TITLE MACY11 30G6(1063) 24-0CT-80 09:35 PAGE 1 
CRLPK2.P11- 02=NOV-79 11:22 SEQ 0089 


| 
1 ;THIS FILE IS THE SAME AS “'CRLPXO.P11'' EXCEPT IT IS LOADED INTO 65000 
é [IT IS ALSO THE SAME AS ‘“'DRLPX2.Pi1'' EXCEPT NAME CHANGE "'CRLPX2.P11' 
4 
5 -LIST MC,BIN,BEX,MEB 
6 “NLIST MD.CND.ME 
- 177777 ADDRESS=-1 
9 : MACRO DEFFINITIONS FOR M8200 AND M8204 MICRO-PROCESSOR 
10 : INSTRUCTION SET. 
HI : TO BE USED WITH RSX MACRO-11 ASSEMBLER 
13 ; 26-MAY-1976 
452 000000" $BEGIN 
453 000000 $L0C 42000 
454 -GLOBL DRLPX2 
455 -ENABL GBL 
456 
457 


: 
458 :*MICRO CODE FOR KMC-11 


/DRLPX2CIMAGE) MICRO CODE 


CRLPX2.P11 


466 042000 


(2) 042014 


478 042016 


046 
(3) 042046 
495 042050 


O2-NOV-79 11:22 


100407 
100420 
100430 
100432 
100434 
100436 
100440 


000400 
061220 
061222 
061223 
061224 
061225 
061226 
061227 
063226 


021240 
000777 
061222 


021240 


DRLPX2: 


STARTU: 


CMNOP: 


LOOP: 


sDEFAULT TITLE MACY11 306(1063) 


24- 


7 
OCT-80 09:35 PAGE 2 


s*THIS CODE a . DOWN LOADED INTO BOTH 


s*KMC-11'S. T 


DE RUNS ASYNCRONOUS TO THE PDP-11 CODE 


*WE SYNC THROUGH COMMANDS PASSED VIA THE OUT*/IBUS* REGS. 
® 


-s ie i. Re FOR COMMANDS 


. WORD 
BR 
. WORD 
BR 
- WORD 
BR 
. WORD 
BR 
. WORD 
BR 
. WORD 


BR 
. WORD 


START OF U CODED 


# 0,BREG 
BREG,OUT1 
$$$. 
BREG,OUT1 
BREG,OUT1 
$$$. 
BREG,OUT1 
$$$. 
BREG,OUT1 
BREG,OUT1 
BREG,OUT1 
$$$. 
BREG, SPAD 


<6> 


;GOTO START 

;NOP=1 

;=2 READ SILO PUT IN BSEL4 

;=3 READ BSEL4 PUT IN SILO. 

7=4 READ FAST PATH PUT IN BSEL4 
;=5 READ BSEL4, PUT IN FAST PATH. 
3;=6 TAKE AN A/D SAMPLE 


;CLEAR UNIBUS CSRS 


INPO <12>,0UT1 <O0> ;READ STATUS 


# 377, BREG 
BREG,OUT1 
$$$. 


<2> 


; INDICATE READY FOR COMMAND. 


INPO <12>,0UT1 <0> ;READ STATUS 
$$$. 


INP1 <2>,SPAD <O> ;READ COMMAND REG. 


SEQ 0090 


a a 
bestia nee MICRO CODE :DEFAULT TITLE MACY11 30G6(1063) 24-0CT-80 09:35 PAGE 2-1 


CRLPX2.P11 O2-NOV-79 11:22 SEQ 0091 
(3) 042050 123040 -WORD .$$$. 
496 042052 BZ LOOP :NO COMMAND THEN LOOP 
ig) 042052 101423 -WORD .$$$. 
498 042054 MOVE INP1 <2>,SPAD <0> ;RE-READ COMMAND. 
{2 042054 123040 -WORD .$$$. 
500 042056 BR SPAD <0> ;BR BASED ON CMND. 
(2) 042056 160600 «WORD .$$$. 
501 sNO-USER PROTECTION OFFERED. 
502 ;I1F YOU ENTER WRONG CODE - 
503 ;YOU LOSE. 
504 
505 : 
506 sROUTINE TO READ THE SILO, PUT IN 
507 7*BUS REG 4 
29 3CMD=2 
510 042060 RDSILO: MOVE INPO <10>,OUTi <4> ;READ SILO. 
(3) 042060 021204 -WORD .$$$. 
511 sWRITE *BUS 
512 042062 BR CMNOP ;RETURN. 
(2) 042062 100420 «WORD .$$$. 
i ; 
515 sROUTINE TO WRITE SILO, READ DATA FROM 
516 s*BUS REG 4 
517 : = 
219 ; 
520 042064 WRSILO: MOVE INP1 <4>,0UTO <10> ;READ DATA IN *BUS 
(3) 042064 122110 -WORD .$$$. 
521 sWRITE SILO. 
522 042066 BR CMNOP 
(2) 042066 100420 -WORD .$$$. 
3 
525 “ROUTINE TO READ _ PATH (CMND) REG. 
526 PUT IN *BUS REG 4 
527 7 CMD=4 
530 042070 RDCMND: MOVE INPO <11>,0UT1 <4> ;READ FAST PATH 
(3) 042070 021224 «WORD .$$$. 
531 sWRITE *BUS. 
532 042072 BR CMNOP ;RETURN 
(2) 042072 100420 -WORD $$$. 
i 
535 sROUTINE TO WRITE FAST PATH (CMND) REG. 
536 s TAKE DATA FROM *BUS REG 4. 
537 3 =5 
339 ; 
540 042074 WRCMND: MOVE INP) <4>,QUTO <11> ;READ DATA IN *BUS 
(3) 062074 122111 WORD . $$$. 


8 
/DRLPX2CIMAGE) MICRO CODE ;DEFAULT TITLE MACY11 306(1063) 24-01-80 09:35 PAGE 2-2 


CRLPX2.P11 N2-NOV-79 11:22 SEQ 0092 
541 sWRITE INTO FAST PATH. 
542 042076 BR CMNOP “RETURN. 
(2) 042076 100420 .WORD .$$$. 
543 
544 
545 : 
| 546 sTHIS ROUTINE TAKES AN A/D SAMPLE. 
547 :CALL= CMND 6 IN BSEL2 
548 ; THESE REGS. MUST BE SET UP IN ADVANCE. 
549 :BSEL ; MUST CONTAIN READ CODE FOR A/D BUFFER. 
550 ‘BSEL 4,5 MUST CONTAIN A/D CSR SETTING. 
551 ‘BSEL 6 MUST CONTAIN WRITE CODE FOR A/D CSR 
552 sBSEL 7 MUST CONTAIN READ CODE FOR A/D CSR 
553 SEL 3,6,7 WILL REMAIN UNEFFECTED. 
554 : Beet 4.5 WILL CONTAIN A/D SAMPLE. 
339 SBSEL2 WILL CONTAIN CODE 377 WHEN DONE. 
566 
567 042100 WIMC — SAMP 
(4) 042100 020640 .WORD .$$$. 
(3) 042102 103040 -WORD .$$$. 
568 042104 MOVE INP1 <6>,0UTO <11> :SEND A/D WRITE CODE. 
(3) 042104 122151 .WORD .$$$. 
569 042106 WITMC SAMP 1 
(4) 042106 020640 .WORD .$$$. 
(3) 042110 103043 .WORD .$$$. 
570 042112 MOVE INP1 <4>,0UTO <11> sSEND LOW BYTE CSR INFO. 
(3) 042112 122111 .WORD .$$$. 
571 042114 WIMC = SAMP2 
(4) 042114 920640 .WORD .$$$. 
(3) 042116 103046 .WORD .$$$. 
572 042120 MOVE INP1 <5>,0UTO <11> :SEND HIGH BYTE cSR INFO. 
($3) 042120 122131 .WORD .$$$. 
573 042122 WIMC —- SLOOP 
(4) 042122 020640 .WORD .$$$. 
(3) 042124 103051 .WORD .$$$. 
574 042126 MOVE INP1 <7>,0UTO <11> :SEND READ CODE TO GET A/D CSR. 
(3) 042126 122171 .WORD .$$$. 
575 042130 WIMC = SAMP3 
(4) 042130 020640 .WORD .$$$. 
(3) 042132 103054 .WORD .$$$. 
576 042134 WTMM SLOOP’ 
(4) 042134 020640 .WORD .$$$. 
(4) 042136 061620 .WORD .$$$. 
(3) 042140 103056 .WORD .$$$. 
577 042142 MOVE INPO <11>,BREG 
(3) 042142 020620 .WORD .$$$. 
578 042144 MOVE BREG,SPAD <0> 
(3) 042144 063220 .WORD .$$$. 
579 042146 WTMM =: SLOOP 2 
(4) 042146 020640 .WORD .$$$. 
(4) 042150 061620 .WORD $$$. 
(3) 042152 103063 .WORD .$$$. 
580 042154 MOVE INPO <11>,BREG 
(3) 042154 020620 .WORD .$$$. 
581 042156 BB7 CMNOP sABORT IF A/D BIT 15=1 


¥ 
| 


ooo 


'DRLPX2( IMAGE) MICRO CODE 
ICRLPX2.P11 


PA AMNAMNARUMNARUAR UR 
www ~~ Vw 


RO 
Sos rNSsSsSSFFZSSSS 
AAS MOOAAS SMNCOe 


O2-NOV-79 11:22 
103420 
060600 
103473 
100451 
122071 
020640 
061620 
103074 
021224 
020640 
061620 
103100 
021225 
100420 


177777 
000001 


Yl C 8 
;DEFAULT TITLE MACY11 30G(1063) 24-OCT-80 09:35 PAGE 2-3 


LOPE: 


. $$$. 

SPAD <0>,BREG 

. $$$. 

LOPE 

. $$$. 

SLOOP 

. $$$. 

INP1 <3>,0UTO <11> 
. $$$. 

SLOOP3 

. $$$. 

. $$$. 

.$$$. 

INPO <11>,0UT1 <4> 
.$$$. 


:1F A/D NOT DONE,EXIT. 
; ISSUE READ A/B BUFFER. 


SEQ 0093 


| Son bg ) 
DRLPX2(IMAGE) MICRO CODE ;DEFAULT TITLE Af he 306(1063) 24-OCT-80 09:35 PAGE 3 


ITL 

|CRLPX2.P11 O2-NOV-79 11:22 SYMBOL SEQ 0094 
ADDRES= 177777 SAMP 042100 -ADDWC= 000020 -DMEM = 002400 -SELB = 000220 
CLK = = 000020 SAMP1 042106 -AND = 000260 «DNOP = 000000 -SIMM = 000000 

P 042040 SAMP2 042114 -BB0 = 002000 -DOUTO= 002000 -SINO = 020000 
DRLPX2 042000 G SAMP3 042130 BB1 = 002400 -DOUTI= 001000 -SIN1 = 120000 
LOOP 2046 SLOOP 042122 BB4 = 003000 -DSPAD= 003000 -SMEM = 040000 
LOPE 042166 SLOOP1 042134 BB7 = 003400 -DSPBR= 003400 SUB = 000340 
MARHLD= 000000 SLOOP2 042146 BC = 001000 D0 = =_: 000400 - SUBWC= 000040 
MARINC= 014000 SLOOPS 042170 = 000400 FO 8=©= 000020 -SUB2C= 000360 
MARLD = 010000 SLOOP4 042200 BSBRG= 160600 INC = 000060 -S0 = 020000 
MARLDX= 004000 STARTU 042016 BSIMM= 100000 LORN = 000240 -XOR = 000320 
PAGEO = 000000 WRCMND 042074 BSMEM= 140000 MINUS= 000360 $$$. = 100420 
PAGE1 = 001000 WRSILO 042064 -BZ = 001400 0 = 004000 LOC = 042040 
PAGE2 = 002000 $$SSER= 000001 -CO = 000400 OR = 000300 2A == 000120 
PAGES = 003000 ° = 042214 -DBR = 000400 P = 000000 2AWC = 000140 
RDCMND 042070 -ADC = 000100 -DBRSH= 001400 . SBREG= 060000 ' 
RDSILO 042060 -ADD = 000000 -DEC = 000160 -SELA = 000200 : 
- ABS. 042214 000 OVR RW ABS LCL OD 

000000 001 CON RW ABS LCL 1 

ABCODE 004000 002 CON §RW RL ia =i 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


CRLPX2,CRLPX2=CRLPX2 
RUN-TIME: 3 3 0 SECONDS 
RUN-TIME RATIO: 16/7=2.2 
CORE USED: 35K (69 PAGES) 


